Шифрование данных

← →
BALU1111 © (2004-02-12 11:53) [0]

Плиз, срочно нужен алгоритм, не слишком трудный, но и не простой, шифрующий и дешифрующий строку. Заранее спасибо.

← →
TUser © (2004-02-12 11:54) [1]

sres:="";
for i:=1 to length(S) do
sres:=sres+chr(ord(S[i]) xor $fd);

← →
BALU1111 © (2004-02-12 12:00) [2]

> TUser © (12.02.04 11:54) [1]

Спасибо, не могу проверить сразу на месте. А данный алгоритм работает в двустороннем режиме? Т.е. и шифрует и дешифрует?

← →
Тимохов © (2004-02-12 12:00) [3]

да

← →
TUser © (2004-02-12 12:29) [4]

Прошло это что ли за "но и не простой" алгоритм?

← →
Тимохов © (2004-02-12 12:31) [5]

Если у тебя строки фиксированной длины, то ключ можно сделать той - длины. Будет супер надежно.

← →
Anatoly Podgoretsky © (2004-02-12 12:39) [6]

А если есть шифрованная и расшифрованная строка, по ключ получается за несколько микросекунд. Не надо использовать простые хor дгоритмы.

← →
Alex Konshin © (2004-02-12 13:27) [7]

А так сойдет?
program Test; {$APPTYPE CONSOLE} function Encode( src : String; key : LongInt ) : String; var i, len : Integer; psrc, pdst : PChar; new, old : LongInt; begin Result := ""; len := Length(src); if len=0 then Exit; SetLength(Result,len); psrc := PChar(src); pdst := PChar(Result); old := key; for i := 0 to len do begin new := old xor Ord(psrc^); pdst^ := Chr( new and 255 ); old := (old and $ffffff00) or Ord(psrc^); old := new*old; // тут можно использовать любую комбинацию действий, которые не зависят от перестановки new и old Inc(psrc); Inc(pdst); end; end; var s : String; begin s := Encode("Ага!", 123124 ); WriteLn( Encode(s, 123124 ) ); end.

← →
Alex Konshin © (2004-02-12 13:28) [8]

Удалено модератором
Примечание: Дубль

Torry.net

Скачай библиотеку QStrings, там есть и несколько хороших функций для шифрования строк.
http://www.torry.net/vcl/vcltools/text/adqstrings.zip

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