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

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

← →
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)

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

---

← →
mrcat ©   (2003-06-09 17:54) [15]

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);

---

Страницы: 1 вся ветка

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



Память: 0.48 MB
Время: 0.016 c