Текущий архив: 2004.02.25;
Скачать: CL | DM;
Вниз
Шифрование данных Найти похожие ветки
← →
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]Удалено модератором
Примечание: Дубль
← →
Alex Konshin © (2004-02-12 13:31) [9]Удалено модератором
Примечание: Дубль
← →
Карелин Артем © (2004-01-23 13:16) [10]Torry.net
← →
Amoeba © (2004-02-12 15:24) [11]Скачай библиотеку QStrings, там есть и несколько хороших функций для шифрования строк.
http://www.torry.net/vcl/vcltools/text/adqstrings.zip
Страницы: 1 вся ветка
Текущий архив: 2004.02.25;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.023 c
