VFP 愛用者社區

[行者孙]

破解的原理我就先不说了，看下代码就知道了，这里我只是贴出了限制的代码，只能破解11位以下的ASIC密码
请原谅不能贴出我破解20位密码（含中文密码）的代码，^-^）：

DIME mm(26)
kstr='155,108,236,055,064,211,156,250,219,201,040,230,014,033,138,096,073,003,123,054,232,229,223,177,106,099'
kms=CHR(232)
f=GETFILE('mdb','选择文件：')
IF f==''
else
h=FOPEN(f,12)
=FSEEK(h,86)
fms=FREAD(h,1)
ms=chr(BITXOR(ASC(kms),ASC(fms)))&&解密密匙
=FSEEK(h,66)
fstr=FREAD(h,26)
=FCLOSE(h)
x=''
y=''
FOR i=1 TO 26
asc1=VAL(SUBSTR(kstr,4*i-3,3))
asc2=ASC(SUBSTR(fstr,i,1))
asc4=CHR(BITXOR(asc1,asc2))
IF MOD(i,2)=1
x=x+asc4
ENDIF
endf
k=LEN(ALLTRIM(x))
FOR i=1 TO k
IF MOD(i,2)=1
mm(i)=CHR(bitxor(ASC(ms),ASC(SUBSTR(ALLTRIM(x),i,1))))
ELSE
mm(i)=SUBSTR(ALLTRIM(x),i,1)
endi
endf
mm=mm(1)+mm(2)+mm(3)+mm(4)+mm(5)+mm(6)+mm(7)+mm(8)+mm(9)+mm(10)+mm(11)+mm(12)+mm(13)
? mm&&获得密码
ENDIF


＝-＝行者孙 VFP应用程式算法群：12787940＝-＝

[Erwin]

3Q

[KKKLYNN]

感謝您
原資料庫建立者已至祖國
所以不得已使用
嘿嘿嘿
謝啦