pipigril
asked on
Encrypt String!
How to SIMPLY encrypt/decrypt strings in Memo1 when the user is saving/loading the file?
Just do this to input the data:
AssignFile(data_in, <Filename>);
Reset(data_in);
Memo1.Lines.Clear;
WHILE NOT(EOF(data_in))
DO
BEGIN
READLN(data_in, sTemp);
sTemp := DecodeStr(sTemp);
Memo1.Lines.Add(sTemp);
END;
CloseFile(data_in);
And then to output the data:
AssignFile(data_out, <Filename>);
Rewrite(data_out);
FOR iCount := 0 TO (memo1.Lines.Count - 1)
DO
BEGIN
sTemp := Memo1.Lines[iCount];
sTemp := DecodeStr(sTemp);
WRITELN(data_out, sTemp);
END;
CloseFile(data_out);
You'll need to create an encode and a decode routine which have a strings passed to them and then either encode or decode them. Writing these depends on how secure you want to make them. If you want help with these then just ask
The Neil
AssignFile(data_in, <Filename>);
Reset(data_in);
Memo1.Lines.Clear;
WHILE NOT(EOF(data_in))
DO
BEGIN
READLN(data_in, sTemp);
sTemp := DecodeStr(sTemp);
Memo1.Lines.Add(sTemp);
END;
CloseFile(data_in);
And then to output the data:
AssignFile(data_out, <Filename>);
Rewrite(data_out);
FOR iCount := 0 TO (memo1.Lines.Count - 1)
DO
BEGIN
sTemp := Memo1.Lines[iCount];
sTemp := DecodeStr(sTemp);
WRITELN(data_out, sTemp);
END;
CloseFile(data_out);
You'll need to create an encode and a decode routine which have a strings passed to them and then either encode or decode them. Writing these depends on how secure you want to make them. If you want help with these then just ask
The Neil
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Maybe this link is interesting for you:
http://www.delphizine.com/features/1999/02/di199902mb_f/di199902mb_f.asp
http://www.delphizine.com/features/1999/02/di199902mb_f/di199902mb_f.asp
ASKER