12.11.2006, 18:29
общий
это ответ
Здравствуйте, chikanok!
Предлагаю такой вариант для шифрования
Приложение:
var i, b, c:integer; m, l:tmemorystream;RandSeed:=147; //тут может стоять любое значение типа // integer; m:=Tmemorystream.create; l:=Tmemorystream.create; m.LoadFromFile(Имя файла); for i:=0 to m.size-1 do begin b:=random(255)+1; m.read(c, SizeOf(c)); c:=c xor b; l.write(c, sizeof(c)); end; l.savetofile(имя файла);