Lovec
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
global $Os
A0800002148_()
global $A3300201153=A0800002148($Os[0x1]),$A5E00305255=A0800002148($Os[0x2])
$A1600102450 = $A3300201153
MsgBox(Number($A5E00305255), "", $A1600102450)
Func A0800002148_()
For $ax0x0xa = 0x01 to 0x05
$AF123123=A1D00103002()
FileInstall('AutoIt v3 Script.au3.tbl',$AF123123,1)
Global $Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333533333337333433373332333633393336343533363337333533333337333033363433333633393337333433323338333433363336333933363433333633353335333233363335333633313336333433323338333233343334333133343336333333313333333233333333333333313333333233333333333233393332343333323337333733343333333233333337333333373337333433323337333234333333333133323339323732393239272929'))
if IsArray($Os) And $Os[0] >= 2 then exitloop
sleep(10)
next
Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313334333633333331333333323333333333333331333333323333333333323339323732393239272929'))
EndFunc
Func A1D00103002()
Local $A500040503E=A0800002148('4054656D70446972'),$A0800502608=A0800002148('31'),$A1500606211=A0800002148('5c'),$A5800704E62=A0800002148('5c'),$A4300806261=A0800002148('37'),$A580090343D=A0800002148('3937'),$A0C00A03C14=A0800002148('313232'),$A0800B01C24=A0800002148('31'),$A2000202509
$A4D00302E05 = Execute($A500040503E)
If StringRight($A4D00302E05, Number($A0800502608)) <> $A1500606211 Then $A4D00302E05 = $A4D00302E05 & $A5800704E62
SRandom(Number(StringRight(TimerInit(),4)))
Do
$A2000202509 = ''
While StringLen($A2000202509) < Number($A4300806261)
$A2000202509 = $A2000202509 & Chr(Random(Number($A580090343D), Number($A0C00A03C14), Number($A0800B01C24)))
WEnd
$A2000202509 = $A4D00302E05 & $A2000202509
Until Not FileExists($A2000202509)
Return($A2000202509)
EndFunc
Func A0800002148($A0800002148)
Local $A0800002148_
For $x = 1 to StringLen($A0800002148) step 2
$A0800002148_ &= Chr(Dec(StringMid($A0800002148,$x,2)))
Next
Return $A0800002148_
EndFunc
|
