-
-
[求助]帮我看看这段pb算法吧!
-
发表于:
2006-1-5 13:04
4085
-
各位大哥也帮我看看这段代码吧!能不能及算出他的逆过程
string MM
string rmm
string fp
long v_l
long bh_i
long bh_cc
fp="c:\bb.dat" //文件路径
if fileexists(fp) = false then //读注册文件
messagebox("test","注册文件不存在,系统无法运行!")
else
v_l = fileopen(fp,streammode!)
fileread(v_l,MM)
end if
MM = mid(MM,4,70)
bh_i = 0
rmm = ""
do while bh_i < len(MM)
bh_i = bh_i + 1
bh_cc = asc(mid(MM,bh_i,1))
rmm = rmm + char(mod(bh_cc,8) * 32 + integer(bh_cc / 8))
loop
rmm = mid(rmm,1,len(rmm) - 1)
sle_1.text = rmm
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课