malemkhoang
Rìu Chiến
Khoan hãy hỏi tại sao lại tặng quà cho MEN mà không phải là woMEN.
Số là khi mình dẫn con bi thộn (python) đi dạo lòng vòng xung quanh Lake Net thì chợt bắt gặp một điều thú vị.
Có một cách mã hóa ký tự rất đơn giản và rất thú vị, sau khi xem xét kỹ phương pháp mã hóa này, mình tổng hợp lại thành phát biểu sau đây:
Phát biểu thứ nhất: nếu đã có 8-3 thì nhất định có 3-8;
(nếu đã có ngày 8 tháng 3 thì nhất định có ngày 3 tháng 8)
Phát biểu thứ hai: nếu g là G thì T là t;
(nếu gái là GÁI thì TRAI là trai).
Sử dụng cách mã hóa này người ta đã mã hóa thành công đoạn code sau đây:
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
và giải mã ra sẽ là:
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
Tôi cũng không hiểu cái đoạn mã này nó làm gì đâu,
nhưng nhấn vào cái địa chỉ trong đoạn giải mã ấy... thì biết.
An tâm đi, không có virus đâu, tôi đã thử trên máy của tôi rồi.
Sửa lần cuối: