Help with stringreplace

[kiko298 0]

I am writting a crypter decrypter but this crypt part isn t working fine.

It replace the string but after that it displays the unecripted string too.

What s the error?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Test string", 405, 294, 202, 132)
$Button1 = GUICtrlCreateButton("Crypt", 168, 256, 75, 25)
$Edit1 = GUICtrlCreateEdit("", 104, 48, 185, 89)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$texto = GUICtrlRead( $Edit1 )
$4 = StringReplace( $texto, "a", "1H890", 1, 1 )
$5 = StringReplace( $texto, "b", "A9D8o", 1, 1 )
GUICtrlSetData( $Edit1, $5 & $4 )
EndSwitch
WEnd

Edited November 25, 2012 by kiko298

[water 1,900]

You know that AutoIt comes with a Crypt UDF?

[JohnOne 1,590]

There is nothing wrong with your code except your printing of result.

Change appropriate line to this.

GUICtrlSetData( $Edit1, $4 & @CRLF & $5 )

[PhoenixXL 160]

kiko298,

you are even duplicating the DATA

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>

$Form3 = GUICreate("Test string", 405, 294, 202, 132)
$Button1 = GUICtrlCreateButton("Crypt", 168, 256, 75, 25)
$Edit1 = GUICtrlCreateEdit("", 104, 48, 185, 89)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$texto = GUICtrlRead($Edit1)
$4 = StringReplace($texto, "a", "1H890", 1, 1)
$5 = StringReplace($4, "b", "A9D8o", 1, 1)
GUICtrlSetData($Edit1, $5)
EndSwitch
WEnd