Текущий архив: 2005.11.20;
Скачать: CL | DM;
Вниз
Расшифровка бинарного кода Найти похожие ветки
← →
Hamertime (2005-10-25 18:08) [0]Привет всем подскажите пожалуйста где взять программу которая расшифрововала бы бинарный(дваичный)код.
То есть если edit1:=1000100101 то edit2:=привет.
← →
clickmaker © (2005-10-25 18:09) [1]
> где взять программу которая расшифрововала бы бинарный(дваичный)код
в ЦРУ. Может и у ФСБ есть...
← →
Hamertime (2005-10-25 18:14) [2]гониш чтоли она у меня была когдато давно но щас не знаю куда её дел наверно стёр
← →
clickmaker © (2005-10-25 18:18) [3]
> Hamertime (25.10.05 18:14) [2]
> гониш чтоли она у меня была когдато давно но щас не знаю
> куда её дел наверно стёр
дык прально, что стёр. Врагу не должна достацца
← →
Hamertime (2005-10-25 18:20) [4]Я серьёзно спрашиваю может мне кто нибуть помочь или нет
← →
TUser © (2005-10-25 19:32) [5]> То есть если edit1:=1000100101 то edit2:=привет.
Так не бывает.
← →
vrem (2005-10-25 19:40) [6]автор, а зачем тебе такая программа?
← →
LordOfRock © (2005-10-25 19:43) [7]Наскока знаю, можно только HEX-код переделать в текст. Если, кнешн, он так записан :)
← →
12next (2005-10-25 19:58) [8]а расшифровать надо, то, что ты сам и зашифровал??
← →
Sergey Masloff (2005-10-25 22:11) [9]Да ладно ЦРУ ФСБ пишется то за 30 секунд ;-)))
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = "") then
Edit2.Text := "ïðèâåò";
end;
← →
Sergey Masloff (2005-10-25 22:12) [10]Да ладно ЦРУ ФСБ пишется то за 30 секунд ;-)))
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = "1000100101") then
Edit2.Text := "привет";
end;
← →
Kerk © (2005-10-25 23:38) [11]
> Sergey Masloff
За тобой уже выехали...
Страницы: 1 вся ветка
Текущий архив: 2005.11.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.03 c
