Как зашифровать кусок текста чтобы его нельзя было прочитать?

← →
Delphiman (2003-06-09 14:24) [0]

Как зашифровать кусок текста, чтобы его нельзя было прочитать?

← →
Axis_of_Evil © (2003-06-09 14:26) [1]

Random тебе поможет :>

← →
VMcL © (2003-06-09 14:26) [2]

>Delphiman (09.06.03 14:24)

С помощью алгоритма шифрования.

← →
VMcL © (2003-06-09 14:27) [3]

>Axis_of_Evil © (09.06.03 14:26)

LOL!

← →
Skier © (2003-06-09 14:27) [4]

Если просто то, примерно так
const
Key = "A";
-> EncodeChar := (Text[Index] + Key) mod 256
<- DecodeChar := (EncodeText[Index] - Key) mod 256

← →
DrPass © (2003-06-09 14:33) [5]

procedure encode(s:string);
var
i:integer;
begin
for i:=1 to length(s) do s[i]:=char(random(256));
end;
Однозначно никто не расшифрует

← →
Anatoly Podgoretsky © (2003-06-09 14:35) [6]

Это можно расшифровать, надо EncodeChar := (Text[Index] mod Random(256)

← →
VMcL © (2003-06-09 14:36) [7]

>DrPass © (09.06.03 14:33)

Лучше так :)
procedure encode(s:string); var i:integer; begin // ... Randomize; где-нибудь for i:=1 to length(s) do s[i]:= s[i] xor char(random(255) + 1); end;

← →
Skier © (2003-06-09 14:36) [8]

Shit. Поторопился.
-> EncodeChar := Chr((Ord(Text[Index]) + Ord(Key)) mod 256)
<- DecodeChar := Chr((Ord(EncodeText[Index]) - Ord(Key)) mod 256)

← →
testthewest (2003-06-09 15:05) [9]

а теперь раскажите ему как расшифровать

← →
VMcL © (2003-06-09 15:09) [10]

>testthewest (09.06.03 15:05)

Он написал " чтобы его нельзя было прочитать" :))

← →
Мое имя (клоны все равно суксь) (2003-06-09 15:14) [11]

как в том анекдоте - типа кулпрограммер придумал архиватор и думал как теперь разархивировать...)))

← →
LMD (2003-06-09 17:07) [12]

Прочитать нельзя - можно услышать: перевести каждый символ в частоту и длительность звука: )

← →
Delphiman (2003-06-09 17:41) [13]

Спасибо за советы, но мне надо ещё знать как эту бойду расшифровать....

← →
Мое имя (клоны все равно суксь) (2003-06-09 17:50) [14]

> Delphiman (09.06.03 17:41)

ну точно как в упомянутом анекдоте))))

Delphiman (09.06.03 17:41)

Уважаемый, чтобы "расшифровать": http://csrc.nist.gov

← →
AbrosimovA (2003-06-10 12:05) [16]

Если вопрос ещё актуален, то могу предложить следующий код для зашифровки и расшифровки.

function Crypt(Text,Key: String; Encode: boolean): String; var i, KeyLength: integer; Sign: ShortInt; begin KeyLength:=Length(Key); if Encode then Sign :=-1 else Sign:=1; //шивровать(true) или расшифровывать(false)? for i:=1 to Length(Text) do Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1])); Result:=Text; end;

Входные параметры функции:
Text - текст для шифровки или расшифровки
Key - ключ, по которому происходит шифровка и расшифровка
Encode - если =true, то шифрование, если =false ,то расшифровка

Шифрование:
Password:=Crypt(Password,"256",true);

Расшифровка:
Password:=Crypt(Password,"256",false);

Как зашифровать кусок текста чтобы его нельзя было прочитать? Найти похожие ветки