Got it working xD
I randomly changed the input trying to see if anything works and o_O it does work.
[php] Dim str As String = TextBox1.Text
Dim bytes() As Byte
Dim hexn As System.Text.StringBuilder = New System.Text.StringBuilder
bytes = System.Text.ASCIIEncoding.ASCII.GetBytes(str)
For i As Integer = 0 To bytes.Length - 1
hexn.Append(bytes(i).ToString("d"))
Next
MsgBox((hexn.ToString()))[/php]
ToString("x") <- Hex
ToString("d") <- Decimal
I just tried d and it worked o_O I was like wtf xD
Well there you go
// As function
[php]
private function todecimal(byval text as string)
Dim str As String = text
Dim bytes() As Byte
Dim hexn As System.Text.StringBuilder = New System.Text.StringBuilder
bytes = System.Text.ASCIIEncoding.ASCII.GetBytes(str)
For i As Integer = 0 To bytes.Length - 1
hexn.Append(bytes(i).ToString("d"))
Next
return (hexn.ToString())
end function[/php]
[php] MsgBox(todecimal(TextBox1.Text))
[/php]