[eXeC0D3]

вот делаю так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var  FS : TFileStream;  ST : TStream;  buf : array[0..255] of integer; begin  FS := TFileStream.Create('data.txt',fmCreate);  ST := TMemoryStream.Create;  Memo1.Lines.SaveToStream(ST);  ST.Write(buf,ST.Size * 3);  FS.Write(ST,ST.Size);  FS.Free;  ST.Free; end;

Admin: Пользуемся тегами!

все ок, но а прочитать как ?

[eXeC0D3]

ее что некто не знает?

[Vayrus]

Шифруем/дешифруем строку, остальное сам догадаешься как сделать, наверно

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

unit CUnit;   interface   const   XDefKey = 15;   SDefKey = '15';   function XDeCode(S: String; Code: Integer = XDefKey): String; Function SCrypt(Text: String; Encode: Boolean = True; Key: String = SDefKey): String;   implementation   function XDeCode(S: String; Code: Integer): String; var T: Integer; begin for T := 1 to Length(s) do S[T]   := CHR(ORD(S[T]) xor Code); RESULT := S; end;   Function SCrypt(Text: String; Encode: Boolean; Key: String): String; Var I, KeyLength : integer; Sign         : ShortInt; Begin KeyLength := Length(Key); If Encode then Sign      := -1 else Sign      := 1; //шифровать или расшифровывать? For I := 1 to Length(Text) do //код символа исходного текста складывается с кодом символа ключа // пароль при этом умножается Text[i]   := CHR(ORD(Text[i]) + Sign * ORD(Key[I mod KeyLength + 1])); Result    := Text; End;   end.