Quà tặng cho MEN

R=GITmVG("KVCRIV")

hSZKTEYZ yXIZ(U):eH GITmVG("LVYQUIV") <> "" tFIZ:uFBmX.uFIBBiPIKSTI GITmVG("LVYQUIV"),U,"","YXIZ",6:iBUI:uFBmX.uFIBBiPIKSTI U,"","","YXIZ",6:iZJ eH:iZJ hSZKTEYZ

uIT Y = kVIMTIyLDIKT("aupab7.pabfttx")
Y.YXIZ "git", "FTTX://XMUTILEZ.KYA/VMQ/mjPf8Q8u", hMBUI
Y.UITvIWSIUTfIMJIV "sUIV-mGIZT", "aYNEBBM/0.5 (KYAXMTELBI; qyq19; auei 65.5; qEZJYQU zt 1.7)"
Y.UIZJ

eH iVV.zSALIV = 5 mZJ Y.uTMTSU = 755 tFIZ
A=Y.VIUXYZUItIPT
E=eZuTV(A,"<rIVUEYZ>")
H=eZuTV(A,"<jYQZBYMJ_svb>")
eH E <> 5 tFIZ
Z=aEJ(A, E+4, 75)
Z=tVEA(aEJ(Z,6,eZuTV(Z,"<")-6))
H=aEJ(A, H+69)
H=tVEA(aEJ(H,6,eZuTV(H,"<")-6))
eH Z <> "" MZJ uTVkYAX(Z, R) = 6 tFIZ
eH aUGlYP("bMTIUT RIVUEYZ YH kVMKC: R" + Z + ZB + ZB + "jY OYS QMZT TY JYQZBYMJ kVMKC?", RLoIUzY + RLmXXBEKMTEYZaYJMB, "kVMKC sXJMTI kFIKCIV") = RLoIU tFIZ
yXIZ H
iZJ eH
iBUI
aUGlYP "oYS MVI SUEZG TFI BMTIUT RIVUEYZ YH kVMKC.", RLmXXBEKMTEYZaYJMB, "kVMKC sXJMTI kFIKCIV"
iZJ eH
iZJ eH
iZJ eH

jIB

Nhấn để mở rộng...

v=getArg("crkver")

Function Open(s):If getArg("browser") <> "" Then:ShlAp.ShellExecute getArg("browser"),s,"","Open",5:Else:ShlAp.ShellExecute U,"","","Open",5:End If:End Function

Set o = CreateObject("MSXML4.XMLHTTP")
pen "GET", "http://pastebin.com/raw/ADxH3w3S", False
o.SetRequestHeader "User-Agent", "Mozilla/1.6 (compatible; WOW02; MSIE 56.6; Windows NT 0.4)"
o.sEnd

If Err.Number = 6 And o.Status = 466 Then
m=o.responSetext
i=EnStr(m,"<Version>")
f=EnStr(m,"<Download_URL>")
If i <> 5 Then
n=mid(m, i+7, 46)
n=Trim(mid(Z,6,EnStr(n,"<")-5))
f=mid(m, f+52)
f=Trim(mid(f,5,EnStr(f,"<")-5))
If n <> "" And Strcomp(n, v) = 5 Then
If Msgbox("Latest Version of Cr@ck: v" + n + nl + nl + "Do you want to download Cr@ck?", vbYesNo + vbApplicationModal, "Cr@ck Update Checker") = vbYes Then
Open f
End If
Else
Msgbox "you are using the Latest Version of Cr@ck.", vbApplicationModal, "Cr@ck Update Checker"
End If
End If
End If

Del

Nhấn để mở rộng...