N
nfsong
Unregistered / Unconfirmed
GUEST, unregistred user!
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47);
//字符串加密用Function Decserial(Str:string):string;Stdcall;//注册字符解密函數vari,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2do
begin
Result:=Result+char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
j:=(j+1) mod 8;
end;
end;
Function Encserial(Str:String):String;Stdcall;//字符加密函數vari,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str)do
begin
Result:=Result+IntToHex(Byte(Str) xor XorKey[j],2);
j:=(j+1) mod 8;
end;
end;
请帮忙将delphi代码转换成C#的写法初学C#,不知道delphi的数据类型和C#的数据类型是怎样对应的。
//字符串加密用Function Decserial(Str:string):string;Stdcall;//注册字符解密函數vari,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2do
begin
Result:=Result+char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
j:=(j+1) mod 8;
end;
end;
Function Encserial(Str:String):String;Stdcall;//字符加密函數vari,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str)do
begin
Result:=Result+IntToHex(Byte(Str) xor XorKey[j],2);
j:=(j+1) mod 8;
end;
end;
请帮忙将delphi代码转换成C#的写法初学C#,不知道delphi的数据类型和C#的数据类型是怎样对应的。