Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c