scramble code

[datkewlguy]

this will be very difficult, i am trying to write a converter that will translate english into this code of mine. The "code" is simple. apple = aeplp, bascially you take first letter, cross it off, take last letter, cross it off, and then continue. Reading it is easy as well, start with the first letter, then read every other letter until you arrive at the last or second to last letter. Upon getting to this letter you read the one next to it that you havent read before (in aeplp. you arrive at p and then go to L.) then you continue to do the same thing going backwards.

Okay i understand that this sounds really retarded and that you all are probably busy but if any of you have some free time do you think you could figure it out? It is too advanced for my n00bish mind or i'd deal with it myself. Thanks in advance...

[Valik]

Here's a transformation which scrambles the word. I leave a descrambler to you. A descrambler may be slightly harder, but you should be able to figure it out by studying this code.

Main()

Func Main()
    Local $s = "apple"
    Local $sExpected = "aeplp"
    
    Local $sResult = ConvertString($s)
    If $sResult <> $sExpected Then
        MsgBox(4096, "", "Failed: " & @CRLF & $sResult)
    Else
        MsgBox(4096, "", "Success: " & @CRLF & $sResult)
    EndIf
EndFunc

Func ConvertString($s)
    Local $sRes = ""
    Local $i = 0
    While StringLen($s)
        Local $index = 1
        $i = $i + 1
        If Not Mod($i, 2) Then $index = StringLen($s)
        $sRes = $sRes & ConsumeCharacter($s, $index)
    WEnd
    Return $sRes
EndFunc

; Eats a character from a string and returns the character
Func ConsumeCharacter(ByRef $s, $index)
    Local $sBegin, $sEnd, $cChar
    $cChar = StringMid($s, $index, 1)
    $sBegin = StringLeft($s, $index-1)
    $sEnd = StringRight($s, StringLen($s)-$index)
    $s = $sBegin & $sEnd
    Return $cChar
EndFunc

[datkewlguy]

hey thanks that works perfectly, but you over estimate me lol. anyone know how i can make the decryption for this?

[datkewlguy]

im going insane, someone plz help, im so confused with this script!

[phillip123adams]

im going insane, someone plz help, im so confused with this script!

<{POST_SNAPBACK}>

Here's a version I did a while ago. It scrambles a little differently because it starts with the last character, then the first, and so on.

expandcollapse popup

;; For Testing
;$sOrig = "Apple"
$sOrig = "AutoIt3 is the best!"
$sScrambled = _Scramble($sOrig)
$sDeScrambled = _DeScramble($sScrambled)
MsgBox(4096, "test", "$sOrig = " & $sOrig &@LF& "$sScrambled = " & $sScrambled &@LF& "$sDeScrambled = " & $sDeScrambled)
Exit


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _Scramble($sText)
  ;; Scramble a text string.
   $iLen = StringLen($sText)
   $Scrambled = ""
   For $i1 = 1 To Int($iLen / 2)
      $Scrambled = $Scrambled & StringMid($sText, $iLen - $i1 + 1, 1) & StringMid($sText, $i1, 1)
   Next; $i1
  ; Pick up the odd character.
   If Mod($iLen, 2) Then
      $Scrambled = $Scrambled & StringMid($sText, $i1, 1)
   EndIf
   Return $Scrambled
EndFunc  ;==>_Scramble


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _DeScramble($sText)
  ;; De-Scramble a Scrambled text that was scrambled by _Scramble.
   Local $iLen = StringLen($sText)
   Local  $i, $DeScrambled1, $DeScrambled2
   $DeScrambled1 = ""
   $DeScrambled2 = ""
   For $i1 = 1 To $iLen step 2
      $DeScrambled1 = StringMid($sText, $i1, 1) & $DeScrambled1
      $DeScrambled2 = $DeScrambled2 & StringMid($sText, $i1 + 1, 1)
   Next; $i1
  ; Pick up the odd character.
   If Mod($iLen, 2) Then
      $DeScrambled1 = StringMid($sText, $i1, 1) & $DeScrambled1
   EndIf
   $sText = $DeScrambled2 & $DeScrambled1
   Return $DeScrambled2 & $DeScrambled1
EndFunc  ;==>_DeScramble

[steveR]

sounds like a job for the regexp lib

[Insolence]

Regexp lib?

You mean RegExp function?

[steveR]

yeah, the _RegExp udf is what i meant

[Insolence]

Where's that located?

[steveR]

Hmmm? server reset?

_RegEx() UDF here:

http://www.autoitscript.com/fileman/users/public/piccaso/_regex.zip

Edited March 5, 2005 by steveR

[Insolence]

Thanks, coulda sworn it was already in the core