我翻译了一个。
public void keyString(String NewValue )
{
Strg1 = NewValue;
String Strg11;
Strg11 = "";
for(i=1;i<strg1.length() + 1)
{
If (i <= keykey.length())
{ //这里不会
Strg11 = Strg11 + Chr(Asc(Mid(Strg1$, i, 1)) Xor Asc(Mid(keykey, i, 1)))
}else{
//这里不会
Strg11 = Strg11 + Chr(Asc(Mid(Strg1$, i, 1)) Xor Asc(220))
}
}
Strg1 = Strg11;
}
public void keyString(String NewValue )
{
Strg1 = NewValue;
String Strg11;
Strg11 = "";
for(i=1;i<strg1.length() + 1)
{
If (i <= keykey.length())
{ //这里不会
Strg11 = Strg11 + Chr(Asc(Mid(Strg1$, i, 1)) Xor Asc(Mid(keykey, i, 1)))
}else{
//这里不会
Strg11 = Strg11 + Chr(Asc(Mid(Strg1$, i, 1)) Xor Asc(220))
}
}
Strg1 = Strg11;
}
解决方案 »
- spring 和structs2 整合开发404错误
- 请教大家一道面试题
- 面试提问解答,求帮助
- WEBLOGIC的JTA问题
- 在webRoot下建立文件夹,每5条记录生成一个excel文档存入新建文件夹中,并压缩成zip文件下载
- WebService实例报错找不到main方法!!
- java.sql.SQLException: Column 'firstName' not found怎么解决?
- hibernate问题
- 低价处理一批java书,适合入门学习用.(在北京交易) 散分!!!!
- 安装, 出错, 问题, 着急 ,解决, 100分, 容易, 你的, 谢谢!
- 请教在Resin3.0.15上配置多个主机出现问题
- 【调查】做J2EE的项目开发时,在使用windows操作系统的文件系统的时候,特别不爽,有同感的进来领分
public String encrypt(String PWDString) { // Dim i As Integer, l
int i = 1; // Dim H1$
String H1$; // If Strg1$ = "" Then
if ("".equals(Strg1$)) { // encrypt = ""
return ""; // Exit Function
// End If
} // 'If Len(PWDString) > Len(Strg1$) Then PWDString = Left(PWDString, 11)
// Pass$ = PWDString
Pass$ = PWDString; // '将密码串通过异或运算加载到字符串Strg1$中,结果存放在变量Strg$中 // Strg$ = Crypt(Pass$, Strg$)
Strg$ = Crypt(Pass$, Strg$); // H$ = ""
H$ = ""; // For i = 1 To Len(Strg$)
String j$;
for (i = 1; i < Strg$.length(); i++) { // b = Asc(Mid$(Strg$, i, 1))//不会 // j$ = Hex$(b)//不会
// If Len(j$) = 1 Then j$ = "000" + j$
if (j$.length()==1) j$ = "000" + j$;
// If Len(j$) = 2 Then j$ = "00" + j$
if (j$.length()==2) j$ = "00" + j$;
// If j$ <> "00" Then H$ = H$ + j$
if (!j$.equals("00")) H$ = H$ + j$;
// Next
}
// encrypt = H$
return H$;
// End Function
}
}