Need script to convert Windows key to hex

[Wb-FreeKill]

I need a script that converts the code on the cd case, to hex(?), just as in regedit.

So you can input the cd-key, and replace it with the one in the regedit!

[buzz44]

a cd key on a bought windows disk??

[Wb-FreeKill]

It is a original windows key, ive got a script that converts the key from the registry to "normal" letters, but i cant fugure how to do it backwords

[buzz44]

Hex ( number, length )

?

[SlimShady]

Ofcourse not. The Hex function converts a number/integer.

Not regular text like a CD-key.

Do you want to write to the registry? Then you don't have to convert the string yourself.

(I'm talking about RegWrite)

I was wondering: what does RegRead return when you read the key?

Edited January 11, 2005 by SlimShady

[JSThePatriot]

It is a original windows key, ive got a script that converts the key from the registry to "normal" letters, but i cant fugure how to do it backwords

<{POST_SNAPBACK}>

I have just created this UDF so I hope you find it useful...

JS

;===============================================================================
;
; Function Name:    _StrToHex()
; Description:    Convert a string of characters to hexidecimal.
; Parameter(s):  $strChar is the string you want to convert.
; Requirement(s):   String Input.
; Return Value(s):  On Success - Returns the converted string in hexidecimal.
;                  On Failure - -1  and sets @ERROR = 1
; Author(s):        Jarvis Stubblefield 
;
;===============================================================================

Func _StrToHex($strChar)
    Local $aryChar, $i, $iDec, $hChar, $file
    
    $aryChar = StringSplit($strChar, "")
    
    For $i = 1 To $aryChar[0]
        $iDec = Asc($aryChar[$i])
        $hChar = Hex($iDec, 2)
        $strHex = $strHex & $hChar
    Next
    
    If Not($strHex) Then
        SetError(1)
        Return -1
    Else
        Return $strHex
    EndIf
EndFunc

Edit: Modified code as specified below.

Edited January 11, 2005 by JSThePatriot

[SlimShady]

It's not @error = 1.

This is correct:

SetError(1)

[JSThePatriot]

It's not @error = 1.

This is correct:

SetError(1)

<{POST_SNAPBACK}>

Thanks.. hehe I forgot to go back and check that against my last UDF .

Appreciate it.

JS

[Wb-FreeKill]

Ive tried your script, but it gives me an od number?

;===============================================================================
;
; Function Name:    _StrToHex()
; Description:      Convert a string of characters to hexidecimal.
; Parameter(s):     $strChar is the string you want to convert.
; Requirement(s):   String Input.
; Return Value(s):  On Success - Returns the converted string in hexidecimal.
;                   On Failure - -1  and sets @ERROR = 1
; Author(s):        Jarvis Stubblefield 
;
;===============================================================================

Dim $Bin
$Bin = "?????????????????????????????????"

InputBox("Product Key", "Your " & @OSVERSION & " product key is:", _StrToHex($Bin), "", -1, 100, -1, -1)

Func _StrToHex($strChar)
    Local $aryChar, $i, $iDec, $hChar, $file
    
    $aryChar = StringSplit($strChar, "")
    
    For $i = 1 To $aryChar[0]
        $iDec = Asc($aryChar[$i])
        $hChar = Hex($iDec, 2)
        $strHex = $strHex & $hChar
    Next
    
    If Not($strHex) Then
        SetError(1)
        Return -1
    Else
        Return $strHex
    EndIf
EndFunc

Have i done everything correct, or?

Edited January 11, 2005 by Wb-FreeKill

[Wb-FreeKill]

In regedit, it starts with a4 00 00 00 03 and so on

[JSThePatriot]

Ive tried your script, but it gives me an od number?

;===============================================================================
;
; Function Name:    _StrToHex()
; Description:    Convert a string of characters to hexidecimal.
; Parameter(s):  $strChar is the string you want to convert.
; Requirement(s):   String Input.
; Return Value(s):  On Success - Returns the converted string in hexidecimal.
;                  On Failure - -1  and sets @ERROR = 1
; Author(s):        Jarvis Stubblefield 
;
;===============================================================================

Dim $Bin
$Bin = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"

InputBox("Product Key", "Your " & @OSVERSION & " product key is:", _StrToHex($Bin), "", -1, 100, -1, -1)

Func _StrToHex($strChar)
    Local $aryChar, $i, $iDec, $hChar, $file
    
    $aryChar = StringSplit($strChar, "")
    
    For $i = 1 To $aryChar[0]
        $iDec = Asc($aryChar[$i])
        $hChar = Hex($iDec, 2)
        $strHex = $strHex & $hChar
    Next
    
    If Not($strHex) Then
        SetError(1)
        Return -1
    Else
        Return $strHex
    EndIf
EndFunc

Have i done everything correct, or?

<{POST_SNAPBACK}>

Okay couple of things.

1. Do you want it converting the -'s to Hex?

If not I suggest you use string functions to remove those.

2. Remove the actual number... so people dont steal it. (I am X'ing it out).

3. PM me with what the actual Hex is in RegEdit. They may have done something else. I have made a simple string to hex converter.

4. They may have it encrypted or something.

I also noticed 00's and spaces in what you showed that they have in RegEdit. Those would have to be added. 00's are null characters.

Edit:

BTW

A4 = ¤

03 = End of Text (ETX)

Let me know anything else you find out.

JS

Edited January 11, 2005 by JSThePatriot

[Wb-FreeKill]

Ive sent a PM to you