您的位置：程序门 -> vb -> 基础类

请教一个简单的语法

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教一个简单的语法[已结贴,结贴人:xiaowengang]

发表于：2007-08-08 09:06:53 楼主

我想有用下面的方法破解一个密码,但第二个for 有语法问题,那个高人能不能帮忙修改下??

dim i as integer
dim k as string
dim pass_str as string251
for i = 1 to 12
passworderror:

for （k=0 to 9) or （k=a to z) or （k=a to z) '在此处有语法问题,请大家帮下忙
pass_str = pass_str + k
nkey = pass_str
' nkey = "59585a4d4447 "
'nkey = "ffffffffffff "

st = rf_authentication（xdev, maxmode, shanq)
if st% <> 0 then
goto passworderror
'r_w_mifare = "err: " & loadresstring（109)
'exit function
' '密码验证失败
end if
next
next

发表于：2007-08-08 09:40:231楼得分:15

dim i, k as integer
dim k as string
dim pass_str as string ' * 251

k = 49
for i = 1 to 12
passworderror:
if k = 57 then k = 64
if k = 90 then k = 96
if k = 122 then goto nextfor
k = k + 1
pass_str = pass_str & chr（k)
nkey = pass_str
st = rf_authentication（xdev, maxmode, shanq)
if st% <> 0 then goto passworderror

nextfor:
next i

发表于：2007-08-08 09:50:022楼得分:15

dim i, k as integer
dim k as string
dim pass_str as string ' * 251
nkey=vbnullstring '设置一个初值
for i = 1 to 12
k = 49
passworderror:
if k = 57 then k = 64
if k = 90 then k = 96
if k = 122 then goto nextfor
k = k + 1
pass_str=nkey '此处增加一句
pass_str = pass_str & chr（k)
nkey = pass_str
st = rf_authentication（xdev, maxmode, shanq)
if st% <> 0 then goto passworderror
nextfor:
next i

发表于：2007-08-08 09:52:423楼得分:10

for i = 1 to 12
k = 47 ' ' ' 'k = 49 错
passworderror:

下一篇：这么简单的问题，谁解决了我直接给现金！！
上一篇：writeprocessmemory写入不成功问题

其他资讯