Hledám program pro převod textu na binární kód

[dapro]

Ahoj nevíte kde bych mohl stáhnout program na převod textudo binárního kodu ?
Hledal jsem na internetu, ale nic jsem nenašel.

[121jirkus]

http://oddrob.com/binaryconvert.asp -> 2 odkaz na Googlu.

[faraon]

Přímo tady, v BASICu:

Kód: Vybrat vše

10 input "Zadej text: ",t$
20 for i=1 to len(t$)
30     m=128
40     z=asc(mid$(t$,i,1))
50     if m>z then goto 90
60     print "1";
70     z=z-m
80     goto 100
90    print "0";
100    m=int(m/2)
110    if m>0 then goto 50
120    print " ";
130 next i
140 print
150 exit

[dapro]

faraon a s jakou koncovkou to mám uložit v PB ?

[faraon]

Co je PB? Já to mám v souboru asc2bin.bas a spouštím to v Chipmunk Basicu, ale když na konci místo exit dáš system, tak to vezme i QBasic, jen na vstupu můžeš mít řetězec dlouhý maximálně 255 znaků.

01010100 01101111 01101000 01101100 01100101 00100000 01101010 01100101 00100000 01101101 01100001 01101100 01111001 00100000 01110100 01100101 01110011 01110100 00101110