.NET (2)
Database (71)
Delphi IDE (89)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
Simple Encryption/ Decryption for short strings
8 comments. Current rating: 
(3 votes). Leave comments and/ or rate it.
The following routines Encrypt(), Decrypt() are suitable for passwords and similar situations.
 |  | |
const
c1 = 52845;
c2 = 22719;
function Encrypt (const s: string; Key: Word) : string;
var
i : byte;
begin
Result[0] := s[0];
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
Result[0] := s[0];
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;
| ||
 |  |
|
||||||||
Comments:
| ||
|
I had to do a monor modification as per below:
const c1 = 52845; c2 = 22719; function Encrypt (const s: string; Key: Word) : string; var i : byte; ResultStr : string; begin Result:=s; {Result[0] := s[0]; } for i := 0 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 {Result[0] := s[0];} Result:=s; for i := 0 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 Allan this was useful !
| ||
| ||
|
Thanks This Was Useful
| ||
| ||
|
Change as :
//Result[0] := s[0]; SetLength(Result, length(s)); | ||
| ||
|
the FOR loop -- shouldn't it go from 1 to length(Result) rather than 0 to length(s)
| ||
| ||
|
xnzovat!
| ||
| ||
|
fipbswys
 http://nyqpafck.com qrzpedvs xjjrqweo <a href=' http://sswdktxh.com..</a> [URL= http://wbujszun.com..dhyp[/URL] |
