http://dn.codegear.com/article/28325 2008-11-21T15:20:06-08:00 Fernando Carvalho http://threads.codegear.com/threads/threads.exe/userall?commentid=41225 http://threads.codegear.com/threads/threads.exe/view?commentid=41225 2008-06-25T16:05:27-07:00 2008-06-25T16:05:27-07:00

Encrypting and Decrypting strings in Delphi.

thanks a lot for this simple and functional function.so,regardsFernando Carvalho Robin Martain http://threads.codegear.com/threads/threads.exe/userall?commentid=39052 http://threads.codegear.com/threads/threads.exe/view?commentid=39052 2006-05-14T21:12:50-07:00 2006-05-14T21:12:50-07:00

re: Encrypting and Decrypting strings in Delphi.::Modification

Thanks Aniket,A simple modification for good results. Cheers.Robin. Roland Illig http://threads.codegear.com/threads/threads.exe/userall?commentid=34398 http://threads.codegear.com/threads/threads.exe/view?commentid=34398 2003-04-03T07:32:40-07:00 2003-04-03T07:32:40-07:00

Encrypting and Decrypting strings in Delphi.

If the encrypted string contains a #0, it will be cut at that position when assigned to Edit1.Text, as this is handled as a C string. So you cannot encode strings that contain #255 (ÿ). Aniket Bhatt http://threads.codegear.com/threads/threads.exe/userall?commentid=34076 http://threads.codegear.com/threads/threads.exe/view?commentid=34076 2003-02-10T00:53:20-08:00 2003-02-10T00:53:20-08:00

Encrypting and Decrypting strings in Delphi.::Modification

This method would be more effective if modified slightly. Following is the modified version of EnDeCrypt function. It makes the resultant character dependent on position so Strings like 'AAAAA' generates different characters for each 'A'.function TForm1.EnDeCrypt(const Value : String) : String;var CharIndex : integer;begin Result := Value; for CharIndex := 1 to Length(Value) do Result[CharIndex] := chr(not(ord(Value[CharIndex]) + CharIndex ));end;