Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Zeichenfolge in Hexadezimalcode umwandeln
| Uploader: |  Sebastian |
| Datum/Zeit: | 18.01.2008 20:44:55 |
Dim As String x,y,h=""
Dim As Integer i
Input "Befehl: ", x
for i = 1 to Len(x)
y = Mid(x,i,1)
y = HEX(ASC(y))
If Len(y) = 1 Then y = "0"+y
h += y
next i
print "Hex: "; h
sleep