Change String to Hex

Sprache: English
Programmiersprache: Visual Basic
Veröffentlicht von: slate2001 [nicht registriert]
Letzte Änderung: 15.05.2006
Aufrufe: 1363

Lizenz: GNU General Public License

Beschreibung

This function changes every character in a string into its corresponding ascii value. Then the ascii value is changed into its hexidecimal equivalent.

Code

Zeilennummern anzeigen

1 Function changetohex(strtochange As String) 2 Dim nextchra 'As Integer 3 Dim inptxt$, lenth%, numspc%, nextchr$, newsent$ 4 Let inptxt$ = strtochange 5 Let lenth% = Len(inptxt$) 6 Do While numspc% <= lenth% - 1 7 Let numspc% = numspc% + 1 8 Let nextchr$ = Mid$(inptxt$, numspc%, 1) 9 nextchra = Hex(Asc(nextchr$)) 10 If Len(nextchra) = 1 Then 11 nextchra = "0" & nextchra 12 End If 13 Let newsent$ = newsent$ + nextchra 14 Loop 15 changetohex = newsent$ 16 End Function 17

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *