Convert from Delphi to C#

[Mel Weaver]

Hello,
I'm trying to convert these to functions to c#

const
C1 = 52845;
C2 = 22719;

function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
setlength(result,length(s));
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(Result[i]) + Key) * C1 + C2;
end;
end;

function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
setlength(result,length(s));
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(S[i]) + Key) * C1 + C2;
end;
end;

Thanks
Mel

[needin4mation]

See if this helps:

http://www.netcoole.com/delphi2cs.htm

http://www.google.com/search?num=100...phi+%2Bto+c%23

[Nick Malik [Microsoft]]

really lousy encryption.

You may want to consider using the encryption routines in .Net. The one you
show is really bad. Not much better than a secret decoder ring
(http://en.wikipedia.org/wiki/Secret_decoder_ring) on a very slightly better
scale. Still, I wouldn't trust actual sensitive data to it.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--
"Mel Weaver" <Mel@[remove spam]insdirect.com> wrote in message
news:u%***************@TK2MSFTNGP11.phx.gbl...

Hello,
I'm trying to convert these to functions to c#

const
C1 = 52845;
C2 = 22719;

function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
setlength(result,length(s));
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(Result[i]) + Key) * C1 + C2;
end;
end;

function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
setlength(result,length(s));
for I := 1 to Length(S) do begin
Result[i] := char(byte(S[i]) xor (Key shr 8));
Key := (byte(S[i]) + Key) * C1 + C2;
end;
end;

Thanks
Mel