Шифрование текста

← →
saNat © (2004-10-06 01:09) [0]

Доброго времени суток.
Подскажите пожалуйста несколько элементарных алгоритмов шифрования текста. Суть в чем: подвязался делать курсовик по программированию для девушки, а она привередливая - шифр Цезаря ее не катит. Вот и пойми - надо до банальности просто и в то же время с наворотами.

С уважением...

← →
kaZaNoVa © (2004-10-06 01:12) [1]

XOR

← →
saNat © (2004-10-06 01:47) [2]

Спасибо. Еще варианты... Можно ссылочку...

С уважением...

← →
GanibalLector © (2004-10-06 01:58) [3]

Спасибо. Еще варианты
Есть not and or shl shr
Можно ссылочку
Можно F1

← →
DeadMeat © (2004-10-06 03:19) [4]

Да куда уж проще... Хотя разве что еще проще будет smb[i]:=chr (ord (smb[i])+1);

---
...Death Is Only The Begining...

← →
АлексейК (2004-10-06 06:03) [5]

шифруем
function Encrypt(const S: String; Key: Word): String;
const C1 = 43621; C2 = 28521;
var I: Integer;
begin
Result := S;
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;
const C1 = 43621; C2 = 28521;
var I: Integer;
begin
Result := S;
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;

Я делал функцию типа
noise:=0
for i:=1 to length(pass) do noise:=noise+Abs(255*i*sin(ord(pass[i])*ByteNumder);
noise:=trunc(noise);
Потом прибавлял(отнимал) это к байту номер ByteNumber, затем нормировал
while CurrentByte>=255 do currentByte:=CurrentByte-256
чтобы зашифровать(расшифровать). Работает долго, особенно с большими файлами, но для текстовичков сгодится.

Самый крутой метод это конвертировать текст в другой формат
скажем в *.BMP.
http://www.dmitriyo.front.ru
См "Конвектор форматов"

До банальности просто и в то же время с наворотами - это через MS CyptoApi 2.0

Шифрование текста Найти похожие ветки