function encode(text1:string; pass:string):string;
var
a,a1:TextFile;
ch:Char;
k,n:Byte;
tmp:Word;
begin
AssignFile(a,'c:\delete.txt');
ReWrite(a);
Write(a,text1);
CloseFile(a);
AssignFile(a,'c:\delete.txt');
Reset(a);
tmp:=0; n:=Length(pass);
for k:=1 to n do
begin
tmp:=tmp+ord(pass[k]);
end;
RandSeed:=tmp;
While not eof(a) do
begin
Read(a,ch);
ch:=chr(ord(ch) xor random(256));
Result:=Result+ch;
end;
CloseFile(a);
DeleteFile('c:\delete.txt');
end;
Командировочный хочет купить жене в подарок лифчик. Продавец хочет
узнать размер:
- Ну хоть бы по форме, что это: персик, яблочко, маленькая дынька?
- Уши спаниеля...
