Encoding Problems

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Message Encoder", 735, 463, 192, 124)
GUISetBkColor(0x99B4D1)
$Graphic1 = GUICtrlCreateGraphic(360, 0, 1, 457)
$Label1 = GUICtrlCreateLabel("Input Recieved Message Here", 0, 0, 360, 49, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN))
GUICtrlSetFont(-1, 19, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
$Label2 = GUICtrlCreateLabel("Input Message to send here", 360, 0, 373, 49, BitOR($SS_CENTER, $SS_CENTERIMAGE, $SS_SUNKEN))
GUICtrlSetFont(-1, 19, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xC0DCC0)
Global $Edit1 = GUICtrlCreateEdit("", 8, 56, 345, 177, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
Global $Edit2 = GUICtrlCreateEdit("", 8, 256, 345, 193, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
Global $Edit3 = GUICtrlCreateEdit("", 368, 56, 361, 177, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
Global $Edit4 = GUICtrlCreateEdit("", 368, 256, 361, 193, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $sUserKey = "DecodeMe"
$v = 0


While 1
encrypt()

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd



Func encrypt()
While 1
$reader = GUICtrlRead($Edit3)
If $v = $reader Then
ExitLoop
Else

$bEncrypted = _Crypt_EncryptData($reader, $sUserKey, $CALG_RC4)
GUICtrlSetData($Edit4, $bEncrypted)
$v = $reader
EndIf
WEnd
EndFunc ;==>decrypt