Главная страница
    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.47 MB
Время: 0.029 c
1-84436
defvitguru
2003-06-10 02:13
2003.06.26
При нажатии на кнопку запускался *.exe?


1-84234
Совсем новичок
2003-06-08 16:25
2003.06.26
Как сделать паузу или подождать прорисовывания TLabel?


14-84541
race1
2003-06-07 08:32
2003.06.26
XP Style


14-84564
Sheng
2003-06-07 21:43
2003.06.26
Поисковик для Винампа


1-84241
SergeY
2003-06-12 22:56
2003.06.26
Как обратиться к компоненту в цикле через переменную?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский