Changing letters to numbers from one string

[haggard]

Hello,

I am trying to find method to change parts of string on set before numbers.

For example, I've string like: oOc2sX and i wanna change it for set before:

"o" = 10

"O" = 20

"c" = 5

"s" = 8

"X" = 18

Maybe the best way is to put numbers for selected letters to the array? But i am not sure how to do that and later use to change this string.

Would you like to help me? Thanks

[Damein]

Is it a certain string of letters or do you want every letter to have a numerical value? And do you want specific letters to have specific values?

IE: Can a = 1 and A = 2 or do you want it to be something different?

[haggard]

Every letter have numerical value, like you said: a - 0, A - 1, b - 2, B - 3, etc.

[wakillon]

Try

ConsoleWrite ( _StringReplace ( "oOc2sX" ) & @CRLF)

Func _StringReplace ( $sString )
    Local $Pattern[5][2] = [["[o]", 10], ["[O]", 20], ["[c]", 5], ["[s]", 8], ["[X]", 18]]
    For $i = 0 To 4
        $sString = StringRegExpReplace ( $sString, $Pattern[$i][0], $Pattern[$i][1] )
    Next
    Return $sString
EndFunc

[SalehSouqi]

never mind

Edited April 24, 2011 by SalehSouqi

[Jos]

Translating this back is going to be "fun".

[Damein]

*** EDIT *** Didn't know Al-Mighty Wakillon posted!

This is probably a really confusing way to do it, but it may work.

#include <Array.au3>

Global $LowerCase[130], $UpperCase[91], $Number[7000], $Number2[7000], $Count

For $i = 97 To 122
    $LowerCase[$i] = Chr($i)
Next

For $i = 65 To 90
    $UpperCase[$i] = Chr($i)
Next

For $i = 97 To 122
    $Count += 1
    $Number[$Count] = Asc($LowerCase[$i])
Next

$Count = 0

For $i = 65 To 90
    $Count += 1
    $Number2[$Count] = Asc($UpperCase[$i])
Next

So the Array $Number holds all the lowercase numerical values. 1-26 has a range of 97-122 and $Number2 holds the uppercase numerical values of 65-90

Edited April 24, 2011 by Damein

[GEOSoft]

Like Jos pointed out, trying to convert it back could be a problem. This should solve that for you because each letter in the string would be replaced by 3 numeric characters.

$sStr = "This is Some Test string."
For $i = 62 to 122
    $sStr = StringReplace($sStr, Chr($i), StringFormat("%03u",$i))
Next
MsgBox(0, "TEST", $sStr)

[Rogue5099]

Try this out, if encrypt goes over 254 charactors you can't use inputbox you could use GUICtrlCreateEdit though:

expandcollapse popup

Global $LowerCase[130], $UpperCase[91], $Number[7000], $Number2[7000], $Count

$Message = InputBox("Test", "Enter Message to Encrypt")

For $i = 97 To 122
    $LowerCase[$i] = Chr($i)
    If StringInStr($Message, $LowerCase[$i]) Then
        $Message = StringReplace($Message, $LowerCase[$i], StringFormat("%03u",$i) & ":", 0, 1)
    EndIf
Next

For $i = 65 To 90
    $UpperCase[$i] = Chr($i)
    If StringInStr($Message, $UpperCase[$i]) Then
        $Message = StringReplace($Message, $UpperCase[$i], StringFormat("%03u",$i) & ":", 0, 1)
    EndIf
Next

$Message = StringToBinary($Message)
MsgBox(0, "Encrypted", $Message)
$Message = BinaryToString($Message)

For $i = 97 To 122
    $LowerCase[$i] = StringFormat("%03u", $i)
    If StringInStr($Message, $LowerCase[$i] & ":") Then
        $Message = StringReplace($Message, $LowerCase[$i] & ":", Chr($i), 0, 1)
    EndIf
Next

For $i = 65 To 90
    $UpperCase[$i] = StringFormat("%03u", $i)
    If StringInStr($Message, $UpperCase[$i] & ":") Then
        $Message = StringReplace($Message, $UpperCase[$i] & ":", Chr($i), 0, 1)
    EndIf
Next

MsgBox(0, "Decrypted", $Message)

Edited April 24, 2011 by rogue5099

[GEOSoft]

I know this thread is getting old but I just had another though about how to handle it and still be able to reverse the process easily.

If there is no explicit reason why you have to use numbers then just use the Binary equivalent. It could then be recovered using a Regular Expression with the xdigit class.

$sStr = "This is Some Test string."
$bStr = StringMid(Binary($sStr), 3)
MsgBox(0, "Result", $bStr)

The expression to recover the original would be

"([[:xdigit:]]{2})"