function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
请同时会delphi和c#的高手帮忙解决啊!!!谁能把下面几行delphi代码弄成c#代码的???
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
请同时会delphi和c#的高手帮忙解决啊!!!谁能把下面几行delphi代码弄成c#代码的???
解决方案 »
- 如何经过后台处理 让清晰的图片变得模糊
- 来者有分!外部调用JS文件,如<SCRIPT src="js/JSNAME.js" type="text/javascript"></SCRIPT>,为何有时会有问题??
- 依依喔喔继续升级V2.44.-依依喔喔系列(asp.net+sqlserver2K)
- 新年第一问:有关存储过程的问题............
- 为什么CSDN页面看不到我分数了?
- 新手求助:如何使用where 1=1进行多值查询(使用asp vbscript)
- ListBox的超级菜鸟问题?大哥们快来抢分啊~
- 高手请进,关键字:page session datatable
- chr(13)??
- IIS解析不了ASP.NET,求救。。。。。。。
- 建了个ASP.NET技术交流的群8991506
- 我实在没办法了,真的,求助高手提供vs2005用C#编的一些好例子吧,谢谢了。
{
byte i;
object Result='-';
for int i=1;i<InString.Length;i++)
{
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
}
{
char Result = '';
for(int I = 1; I < InString.Length(); I++)
{
Result += Convert.ToChar(InString[I] ^ (StartKey & 8));
StartKey += (InString[I] + StartKey) * MultKey + AddKey;
}
}大概如此了.
{
string Result ="";
for(int I = 1; I < InString.Length; I++)
{
Result += Convert.ToChar(InString[I] ^ (StartKey & 8));
StartKey= (InString[I] + StartKey) * MultKey + AddKey;
}
return Result;
}