请高手帮忙用VB实现这个网页代码中的功能

来源：百度知道 编辑：UC知道 时间：2024/05/26 20:38:58
<script language=jscript>

function change(){ //解密

var decstring=new String(document.all.code.value);

var s=unescape(decstring);

var t=new String;

var c;

var h,l=0;

for(var i=0;i<s.length;i++)

{

c=s.charCodeAt(i);

l=c%256;

h=(c-l)/256;

t=t+String.fromCharCode(l)+String.fromCharCode(h);

}

document.all.encode.value=t;

}

function gen() //加密

{

var url=new String(document.all.code.value);

var i=0,l=0,k=0,curl="";

l= url.length;

for(;i<l;i++){

k=url.charCodeAt(i);

if(k<16)curl+="0"+k.toString(16);else curl+=k.toString(16);}

if (l%2){curl+="00";}else{curl+="0000";}

curl=curl.replace(/(..)(..)/g,"%u$2$1");

document.all.encode.value = curl;

话说``我这个不能处理中文``

Public Function gen()
Dim i As Integer, l As Integer, k As Integer
Dim url As String, curl As String, ncurl As String
url = Text1.Text: l = 0: k = 0
For i = 1 To Len(url)
k = Asc(Mid(url, i, 1))
If k < 16 Then
curl = curl + "0" + Hex(k)
Else
curl = curl + Hex(k)
End If
If Len(url) Mod 2 = 0 And i = Len(url) Then
curl = curl + "0000"
ElseIf Len(url) Mod 2 = 1 And i = Len(url) Then
curl = curl + "00"
End If
Next i

For i = 1 To Len(curl) Step 4
ncurl = ncurl & "%u" & Right(Mid(curl, i, 4), 2) & Left(Mid(curl, i, 4), 2)
Next i
gen = ncurl
End Function

'使用示例，添加一个CommandButton，名为Command1
'两个TextBox，名称分别为Text1和Text2，复制以下代码运行即可

Private Sub Command1_Click()
Text2.Text = gen()
End Sub