function TForm_Login.jmPass(str: string): string;
var
m,str1: string;
asc,asc1: byte;
i: integer;
begin
m := '\iklop;lk,kjjhh\ ';
for i:=1 to length(str) do
begin
asc := ord(str[i]);
asc := asc and $F;
asc1 := ord(m[i]);
asc1 := asc1 and $F;
asc1 := asc xor asc1;
asc := ord(str[i]);
asc := asc and $F0;
asc := asc + asc1;
str1 := str1 + chr(asc);
end;
result := str1;
end;($F是二进制前四位改为0000)
var
m,str1: string;
asc,asc1: byte;
i: integer;
begin
m := '\iklop;lk,kjjhh\ ';
for i:=1 to length(str) do
begin
asc := ord(str[i]);
asc := asc and $F;
asc1 := ord(m[i]);
asc1 := asc1 and $F;
asc1 := asc xor asc1;
asc := ord(str[i]);
asc := asc and $F0;
asc := asc + asc1;
str1 := str1 + chr(asc);
end;
result := str1;
end;($F是二进制前四位改为0000)
解决方案 »
- DataGridView实现快速检索输入。winfrom的看进来
- 关于接口的理解
- 如何查询Access数据库最后若干条记录呢?
- 实例化了一个DataGridView对象(不是控件),为什么不能关联DataTable对象
- OleDbDataAdapter.Fill(Dataset,string)中的字符串不能包含特殊字符???比如“-”
- 加急!!!怎样在C#程序中获得Oracle数据库中表字段的长度?
- 在调用printPreviewDialog对话框的时候,我想让对话框以最大化方式显示,同时让对话框的最大和最小化按钮不显示,如何实现?
- DataGridView绑定Ilist
- 用最小二乘法拟合一元一次直线的C#代码!
- 关于sidebar的一些问题
- C#窗体代码问题
- 如何把图片组合在一起
function jmPass1(str: string): string;
var
m: string;
I: Integer;
begin
m := '\iklop;lk,kjjhh\ ';
for I := 1 to Length(str) do
Result := Result + Chr((Ord(str[i]) and $F0) or
(Ord(str[i]) and $F) xor (ord(m[i]) and $F));
end;参考如下代码:
private string jmPass(string str)
{
string m = @"\iklop;lk,kjjhh\ ";
byte[] vKeys = Encoding.Default.GetBytes(m);
byte[] vBytes = Encoding.Default.GetBytes(str);
byte[] vReturn = new byte[vBytes.Length];
for (int i = 0; i < vBytes.Length; i++)
{
int j = vBytes[i];
vReturn[i] = (byte)(((vBytes[i] & 0xF0) | (vBytes[i] & 0x0F)) ^
(vKeys[i] & 0x0F));
}
return Encoding.Default.GetString(vReturn);
}private void button1_Click(object sender, EventArgs e)
{
Text = jmPass("Zswang 路过");
}