View topic - [Solved] Convert Ascii String to Hex • AutoHotkey Community

View unanswered posts | View active topics

Board index » AutoHotkey » Support

All times are UTC [ DST ]

[Solved] Convert Ascii String to Hex

Page 1 of 1

[ 9 posts ]

Print view | E-mail friend

Previous topic | Next topic

Author

Message

toralf

Post subject: [Solved] Convert Ascii String to Hex

Posted: February 16th, 2010, 11:26 pm

Joined: January 31st, 2005, 9:50 am
Posts: 3910
Location: Bremen, Germany

Hi,

I might have missed this on the forum, but I couldn't find it with the search function.

I want to convert ASCII to HEX. This is what I came up with. Is there a more elegant way? I feel a bit stupid, because I assume I made it more complicated then needed. Any ideas or hints?

Code:

ASCII2Hex(StringA){
  Loop, Parse, StringA
      StringH .= base(Asc(A_LoopField),10,16)
  Return "0x" . StringH
}

;www.autohotkey.com/forum/viewtopic.php?p=159863#159863
;by haichen
base(num,inputbase,outputbase){
  VarSetCapacity(S,65,0)
  toDec := DllCall("msvcrt\_strtoui64", Str,num, Uint,0, Int,inputbase, "CDECL Int64")
  DllCall("msvcrt\_i64toa", Int64,toDec, Str,S, Int,outputbase)
  return, S
}

_________________
Ciao
toralf

Last edited by toralf on February 17th, 2010, 7:04 pm, edited 1 time in total.

Top

sinkfaze

Post subject:

Posted: February 16th, 2010, 11:55 pm

Joined: March 19th, 2008, 12:43 am
Posts: 5480
Location: the tunnel(?=light)

I found this in the one-liner code thread if that's what you mean.

EDIT: Laszlo shortened that code later on.

_________________

Try Quick Search for Autohotkey or see the tutorial for newbies.

Top

toralf

Post subject:

Posted: February 17th, 2010, 7:04 pm

Joined: January 31st, 2005, 9:50 am
Posts: 3910
Location: Bremen, Germany

Thanks a lot. Very much appreciated.
And that's why I felt stupid. I knew that there is somewhere an ellegant solution. Thanks again for the help.

_________________
Ciao
toralf

Top

a_h_k

Post subject:

Posted: February 18th, 2010, 9:51 am

Joined: February 2nd, 2008, 4:35 am
Posts: 643

Here's a way using SetFormat...

Code:

Ascii_2_Hex(StringT)
{
  SetFormat, IntegerFast, H

  Loop, Parse, StringT
  {
    CharH := Asc(A_LoopField)
    StringTrimLeft, CharH, CharH, 2   ;rid "0x" part
    StringH .= CharH
  }
  ;StringH := "0x" . StringH

  return StringH
}

Was this the simple solution you were originally looking for :?:

Top

toralf-n-l-i

Post subject:

Posted: February 18th, 2010, 11:01 am

Dear a_h_k
Thanks for the reply. But no, I wasn't looking for that solution, since it messes with the Format. I was expecting that there is somewhere on this forum a one-liner or DllCall to do it.

Top

a_h_k

Post subject:

Posted: February 18th, 2010, 12:02 pm

Joined: February 2nd, 2008, 4:35 am
Posts: 643

You probably also know that you could always store-->restore the current format via A_FormatFloat & A_FormatInteger ?
(I use my own functions SetFormat(), StoreFormat(), & RestoreFormat() to automatically handle this)

Code:

Ascii_2_Hex(StringT)
{
  SetFormat("IntegerFast", "H")

  Loop, Parse, StringT
  {
    CharH := Asc(A_LoopField)
    StringTrimLeft, CharH, CharH, 2   ;rid "0x" part
    StringH .= CharH
  }
  ;StringH := "0x" . StringH

  RestoreFormat()

  return StringH
}

But this is obviously straying even further away from the 1-liner you wanted...

Top

hex_2_ascii

Post subject:

Posted: March 3rd, 2010, 8:38 pm

How about hex to ASCII?
I've found this:

Ian_School wrote:

Code:

encrypt(sData) {
   Loop, Parse, sData
      r .= Chr(Asc(A_LoopField)+3)
   Return r
}

decrypt(sData) {
   Loop, Parse, sData
      r .= Chr(Asc(A_LoopField)-3)
   return r
}

But I cant use it properly

Is that even the best way to bring hex to ascii?

Examples please!

Top

[VxE]

Post subject:

Posted: March 4th, 2010, 4:03 am

Joined: October 7th, 2006, 8:45 am
Posts: 3330
Location: Simi Valley, CA

hex_2_ascii wrote:

How about hex to ASCII?
I've found this:

Ian_School wrote:

Code:

encrypt(sData) {
   Loop, Parse, sData
      r .= Chr(Asc(A_LoopField)+3)
   Return r
}

decrypt(sData) {
   Loop, Parse, sData
      r .= Chr(Asc(A_LoopField)-3)
   return r
}

But I cant use it properly

Is that even the best way to bring hex to ascii?

Examples please!

That code is not a hex-to-ascii converter, not even close.

This is a function that converts a hex string into ascii, but it is not the best (there are several ways to accomplish this)

Code:

Hex_ToAscii( hex ) {
   VarSetCapacity( string, StrLen( hex ) // 2, 0 )
   Loop, Parse, hex
      If ( A_Index & 1 ) ; if this is an ODD-numbered loop iteration
         nibble := InStr( "123456789abcdef", A_LoopField )
      Else If ( A_LoopField != "x" )
         string .= Chr( InStr( "123456789abcdef", A_LoopField ) | nibble << 4 )
   Return string
}
MsgBox % Hex_ToAscii( "0x48656c6c6f20576f726c6421" )

_________________
Ternary (a ? b : c) guide TSV Table Manipulation Library
Post code inside [code][/code] tags!

Top

toralf

Post subject:

Posted: March 8th, 2010, 6:52 pm

Joined: January 31st, 2005, 9:50 am
Posts: 3910
Location: Bremen, Germany

Thanks VxE

_________________
Ciao
toralf

Top

Page 1 of 1

[ 9 posts ]

Board index » AutoHotkey » Support

All times are UTC [ DST ]

Who is online

Users browsing this forum: Alpha Bravo, Google Feedfetcher, rbrtryn and 22 guests

You can post new topics in this forum
You can reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum