Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.023 c