28,406
社区成员
发帖
与我相关
我的任务
分享高深问题？？？
s:='FBKMZ542';
for i:=1 to length(s) do
begin
s[i]:=chr(ord(s[i])xor 250);
end;
如何把上段DELPHI代码翻译为VBSCRIPT脚本语言，其中ord(s[i])是负责把字符转为对应的数值
例如：
s:='FBKMZ542';经过ord转换变为：
F 70
B 66
K 75
M 77
Z 90
5 53
4 52
2 50
for i:=1 to length(s) do
begin
s[i]:=chr(ord(s[i])xor 250);
end;
如何把上段DELPHI代码翻译为VBSCRIPT脚本语言，其中ord(s[i])是负责把字符转为对应的数值
例如：
s:='FBKMZ542';经过ord转换变为：
F 70
B 66
K 75
M 77
Z 90
5 53
4 52
2 50
...全文
请发表友善的回复…
发表回复
what_010 2006-02-20
- 打赏
- 举报
UP
what_010 2006-02-20
- 打赏
- 举报
7066757790535250
lisoon 2006-02-20
- 打赏
- 举报
结果是多少?
chr()是否也是返回ASCII代表的字母?
chr()是否也是返回ASCII代表的字母?
jamsonwoo 2006-02-20
- 打赏
- 举报
<%
str="FBKMZ542"
for i=1 to len(str)
s=s&asc(mid(str,i,1))
next
response.write s
%>
str="FBKMZ542"
for i=1 to len(str)
s=s&asc(mid(str,i,1))
next
response.write s
%>
lisoon 2006-02-20
- 打赏
- 举报
str="FBKMZ542"
for i=1 to len(str)
s=s&chr(asc(mid(str,i,1)) xor 250)
next
str=s
for i=1 to len(str)
s=s&chr(asc(mid(str,i,1)) xor 250)
next
str=s
what_010 2006-02-20
- 打赏
- 举报
錯誤類型：
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'asc'
/shiyan.asp, line 12
......
试过出现如下错误
Microsoft VBScript 运行时错误 (0x800A0005)
无效的过程调用或参数: 'asc'
/shiyan.asp, line 12
......
试过出现如下错误
lisoon 2006-02-20
- 打赏
- 举报
str="FBKMZ542"
for i=0 to len(str)
s=s&chr(asc(mid(str,i+1,1)) xor 250)
next
str=s
for i=0 to len(str)
s=s&chr(asc(mid(str,i+1,1)) xor 250)
next
str=s
what_010 2006-02-20
- 打赏
- 举报
最后请教一个问题：
dim s()
处理完，如何再转回str
dim s()
处理完，如何再转回str
lisoon 2006-02-20
- 打赏
- 举报
str='FBKMZ542'
slen=len(str)
dim s()
redim s(slen)
for i=0 to slen
s(i)=chr(asc(mid(str,i+1,1)) xor 250)
next
slen=len(str)
dim s()
redim s(slen)
for i=0 to slen
s(i)=chr(asc(mid(str,i+1,1)) xor 250)
next
