获取磁盘序列号
这是一位老大写的获取磁盘序列号的文件然后与用户输入的用户名进行运算,达到加密的目的,结果写到一个文件中,请大家看看,怎样再返回去得到用户名和序列号?对位的运算一窍不通呀declare integer GetVolumeInformation in kernel32.dll;
string,string@,integer,integer@,integer,integer,string@,integer
*获取磁盘序列号
if empty(thisform.text1.value)
messagebox("请在下面添入用户名!",32,"系统提示")
thisform.text1.setfocus
else
newstr=""
newname=""
new=0
serianum=0
temp1=space(255) &&设置字符传递缓冲区
temp2=space(255)
a=GetVolumeInformation("c:\",@temp1,len(temp1),@serianum,0,0,@temp2,len(temp2))
CPKJ=serianum &&取得序列号
handle=fcreate("aa.RXI")
new=bitxor(cpkj,123456789)
nstr=alltrim(str(new))
for m=1 to len(nstr) step 2
newstr=newstr+chr(val(substr(nstr,m,2)))
endfor
b=fputs(handle,newstr) &&将序列号加密保存到文件中
thisname=alltrim(thisform.text1.value)
for m=1 to len(thisname)
onename=substr(thisname,m,1)
newname=newname+chr(bitxor(asc(onename),49))
endfor
c=fputs(handle,newname) &&将用户名加密保存到文件中
=fclose(handle)
messagebox('文件生成完毕!',64,"系统提示")
endif