4893
社区成员
大家帮帮忙??如何将这段Delphi函数改写成javascript或vbscript函数??
DELPHI函数如下:
function encrypt(const s:string):string;
var
j,k,tmp:word;
tmpstr:string;
key:array[1..18] of word= (43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3);
begin
k:=1;
for j:=1 to length(s) do
begin
tmp:=ord(s[j]) xor key[k];
tmpstr:=tmpstr+inttohex(tmp,2);
k:=k+1;
end;
result:=tmpstr;
end;
function encrypt(const s:string):string;
var
j,k,tmp:word;
tmpstr:string;
key:array[1..18] of word= (43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3);
begin
k:=1;
for j:=1 to length(s) do
begin
tmp:=ord(s[j]) xor key[k];
tmpstr:=tmpstr+inttohex(tmp,2);
k:=k+1;
end;
result:=tmpstr;
end;
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
dangsz 2007-03-05
有两个函数我不会,你找一下相关资料,我把语法写给你.
<%
Function Encrypt(s)
Dim J,K,Tmp
Dim TmpStr
Dim Key,Keys
Key="43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3"
Keys=Split(Fides,",")
K=1
For J=1 To Len(s)
Tmp=Asc(s(i)) Xor Keys(k) '这个不是函数,我弄错了.应该这样
TmpStr=TmpStr&inttohex(Tmp,2) '这个Inttohex函数,在VB里我不会用
k=k+1
Next
Encrypt=TmpStr
End Function
%>
inttohex应该是10转16进制函数,vbscrip里好像没有这个函数,你可以自己写一个.
<%
Function Encrypt(s)
Dim J,K,Tmp
Dim TmpStr
Dim Key,Keys
Key="43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3"
Keys=Split(Fides,",")
K=1
For J=1 To Len(s)
Tmp=Asc(s(i)) Xor Keys(k) '这个不是函数,我弄错了.应该这样
TmpStr=TmpStr&inttohex(Tmp,2) '这个Inttohex函数,在VB里我不会用
k=k+1
Next
Encrypt=TmpStr
End Function
%>
inttohex应该是10转16进制函数,vbscrip里好像没有这个函数,你可以自己写一个.
dangsz 2007-03-05
Response.Write inttohex("tmp",2) 这一句没有.
dangsz 2007-03-05
有两个函数我不会,你找一下相关资料,我把语法写给你.
<%
Response.Write inttohex("tmp",2)
Function Encrypt(s)
Dim J,K,Tmp
Dim TmpStr
Key="43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3"
K=1
For J=1 To Len(s)
Tmp=Asc(s(i)) Xor Key(k) '这个Key函数,在VB里我不会用
TmpStr=TmpStr&inttohex(Tmp,2) '这个Inttohex函数,在VB里我不会用
k=k+1
Next
Encrypt=TmpStr
End Function
%>
<%
Response.Write inttohex("tmp",2)
Function Encrypt(s)
Dim J,K,Tmp
Dim TmpStr
Key="43,54,75,2,687,43,65,43,4,23,34,65,43,8,33,33,54,3"
K=1
For J=1 To Len(s)
Tmp=Asc(s(i)) Xor Key(k) '这个Key函数,在VB里我不会用
TmpStr=TmpStr&inttohex(Tmp,2) '这个Inttohex函数,在VB里我不会用
k=k+1
Next
Encrypt=TmpStr
End Function
%>
HELLO_JIM 2007-03-05
这是一个加密函数,即把数据写入数据库后,实行加密
dangsz 2007-03-05
好像不键盘控件,是数组.
dangsz 2007-03-05
我给我解释一下这个自定义函数是获取键盘是什么值?做什么用?我看能不能通过VBCRIPT语法用其它方法写出.
HELLO_JIM 2007-03-05
dangsz,能不能帮我改一下,谢谢了
dangsz 2007-03-05
vbscript 代码很简单,不过关于键盘控制方面的我不太会了.
ptma 2007-03-05
如上 , JavaSvript 的我已经发到上面所说的帖子里了
lihuasoft 2007-03-05
这里早已有答案了：
http://community.csdn.net/Expert/topic/5376/5376044.xml?temp=.5425074
http://community.csdn.net/Expert/topic/5376/5376044.xml?temp=.5425074
WEB开发文档2 总结 转自：http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到...
JAVA是解释型语言还是编译型语言 编译型语言：把做好的源程序全部编译成二进制代码的可运行程序。然后，可直接运行这个程序。解释型语言：把做好的源程序翻译一句，然后执行一句，直至结束！ 区别： 编译型语言，执行速度快、
琐记之零散知识点（java相关的零散知识都丢这里） 2．EJB(Enterprise JavaBeans)使得开发者方便地创建、部署和管理跨平台的基于组件的企业应用。...这样，远程方法激活可以发生在对等的两端，也可以发生在客户端和服务器之间，只要双方的应用程序都是用Java写的。
Java002 【Java编程思想】第1章对象导论 "我们之所以将自然界分解，组织成各种概念，并按其含义分类，主要是因为我们是整个口语交流社会共同遵守的协定的参与者，这个协定以语言的形式固定下来......除非赞成这个协定中规定的有关语言信息的组织和分类，...
VC++中可能遇到的问题 T 如何用程序控制电源管理设置 Q 我们知道在电源选项 属性 里面可以设置 关闭监视器 1分钟之后，...,从不 关闭硬盘 1分钟之后，...,从不 ...如果是，应该调用什么函数？另外补充说明:如果是调出控制面板让用户自
VC++中可能遇到的问题收藏 Q 是不是要用这个函数？ CImage::Save(IStream* pStream,REFGUID guidFileType) 怎么用？ A #include using namespace Gdiplus; http://www.codeproject.com/bitmap/picturestream.asp T 请问，mfc里面，...
[心得]平凡不愿平庸，两年的编程心路 有力却不知道往哪里使，胡乱的看了很多书，比如VB,VBscript,很多黑客的书(特迷这个),计算机网络,但是很多只是test,demo没有实战，也没有交流，又由于进了几个社团的职务，忙着班干和学习的事，很苦闷学习没有什么...
平凡不愿平庸，两年的编程心路 有力却不知道往哪里使，胡乱的看了很多书，比如VB,VBscript,很多黑客的书(特迷这个),计算机网络,但是很多只是test,demo没有实战，也没有交流，又由于进了几个社团的职务，忙着班干和学习的事，很苦闷学习没有什么...
Jiangsheng的CSDN Digest(May 15, 2006) 为了便于搜索（http://search.csdn.net）,这里尽可能保留了论坛上讨论的原文，但是这并不表示本人赞同帖子中的表述方式和观点。 CSDN 讨论总结系列： Jiangsheng的CSDN Digest(April 3, 2006) ...
学习心得 类B对类A中同名函数f1的重载仅根据返回值或调用约定上的区别。 14、error C2660: 'SetTimer' : function does not take 2 parameters “SetTimer”函数不传递2个参数。 15、warning C4035: 'f……': no return value...
