Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.03 c
14-84653
Думкин
2003-06-10 11:59
2003.06.26
Паттерны ошибок


7-84798
Ал
2003-04-17 09:27
2003.06.26
Как сменить фон раб. стола (bmp), если включен ActiveDesktop?


3-84001
clickmaker
2003-05-30 14:17
2003.06.26
TClientDataSet.Locate русских строк вызывает AV в kernel32.dll


7-84766
S.P.I.R.I.T
2003-04-16 02:07
2003.06.26
Скрытие программы от ALT+TAB??????


1-84323
[BAD]Angel
2003-06-08 20:31
2003.06.26
Массив случайных не повторяющихся чисел