Hoe convert je text naar hex

[geenID]

hallo,

mijn vraag is redelijk simpel: Hoe vertaal je een stukje tekst naar hexadecimal?

Btw: Ik gebruik vb 2010

 

[city guy]

in feite wordt elk bestand HEX opgeslagen. Om dat te kunnen zien heb je een binary of een hex editor nodig. Van vertalen is eigenlijk geen sprake.
Links naar editors: http://www.tech-faq.com/hex-editor.html

 

[geenID]

ik denk dat ik het beter moet uitleggen

het is de bedoeling dat een stukje tekst (bijv van textbox1.text), wordt omgezet in hex (in bijv textbox2.text)

Dus in feite: In textbox1.text = stukje tekst, en textbox2.text = hexadecimal van textbox1.text

Ik hoop dat ik het beter heb uitgelegd

 

[city guy]

Dat is beter: waar het op neer komt (waar ik mee zou beginnen) is het omzetten van de ASCII waarde van elk teken in de string naar HEX.

Een werkende, maar niet echt elegante, oplossing vind je op http://msdn.microsoft.com/en-us/library/963zt96e%28VS.80%29.aspx

Je pakt de zaak per teken aan...

 

[geenID]

oke, ik zal er morgen naar kijken
bedankt alvast

 

[geenID]

het wil niet echt lukken.

Ik heb nu dit, met een error als resultaat:

http://i27.tinypic.com/xlz2oj.png

 

[city guy]

het wil niet echt lukken.

Ik heb nu dit, met een error als resultaat:

http://i27.tinypic.com/xlz2oj.png

Je gebruikt een andere VB-versie dan ik deed. De HEX function is volgens mij toch een built-in functie die je niet hoeft te declareren. Haal die er 'ns uit.

Dan in het Button_Click event:
De TESTHEX is volgens mij niet nodig. Je kan in dit geval volstaan met: textbox1.text=hex(5)

Maar vervang die 5 door iets hogers: 10 en hoger; dan moet je verschil zien.

Maar: ik heb een voorbehoud van mij voor de VB-versie

 

[geenID]

Dit wekt nu:

TextBox1.Text = Hex(10)



Maar het is eigenlijk de bedoeling dat een tekst wordt vertaald in hex.

Dus bijv mijn naam 'Geenid' in hex waarde (67 65 65 6E 69 64)


edit: ik probeerde het volgende, met resultaat weer een error:

http://i31.tinypic.com/33ady0l.png

 

[city guy]

Dit wekt nu:

TextBox1.Text = Hex(10)



Maar het is eigenlijk de bedoeling dat een tekst wordt vertaald in hex.

Dus bijv mijn naam 'Geenid' in hex waarde (67 65 65 6E 69 64)


edit: ik probeerde het volgende, met resultaat weer een error:

http://i31.tinypic.com/33ady0l.png

Voor zover ik weet is er geen functie om een hele string in 1 keer om te zetten:

Dit stukje code zou het moeten doen:

dim heks=""
dim i

for i=1 to len(textbox1.text)
    heks=heks & HEX(ASC(mid(textbox1.text,i,1))) & " "
next

.. daarna kun je met heks doen wat je wilt

Ik kan het alleen niet testen hier: staat geen VB meer op mijn PC

 

[geenID]

Het is gelukt!

Heel erg bedankt :d


Maar er is meteen weer een ander probleem :shocked:

Er is een constante string "GeenIDcreations", + lengte van textbox1.text

 

[city guy]

Het is gelukt!!!

Heel erg bedankt :d


Maar er is meteen weer een ander probleem :shocked:

Er is een constante string "GeenIDcreations", + lengte van textbox1.text

Ik krijg de volgende error:

http://i31.tinypic.com/4ryg0p.png

Je probeert hier een string bij een numeric op te tellen. Dat werkt niet. Als het een constante is met een numerieke inhoud dan moeten de quotes weg.

 

[geenID]

maar het is juist de bedoeling dat je als result bijv. krijgt: GeenIDcreations14

Is hier een andere oplossing voor?

 

[city guy]

maar het is juist de bedoeling dat je als result bijv. krijgt: GeenIDcreations14

Is hier een andere oplossing voor?

... een eenvoudig 'ja' volstaat niet denk ik.

"GeenIDcreations" & cstr (len(textbox1.text))

 

[geenID]

het is gelukt, heel erg bedankt

nogmaals bedankt