Encryptor-Decryptor

[egymma]

Didn't you want to send encrypted messages on MSN or email?

here you go.

I hope you like it >_<

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         egymma [Mohamed Ashraf]

 Script Function:
    Converting string to hex and hex to string.

#ce ----------------------------------------------------------------------------

#NoTrayIcon
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <string.au3>
#include <Clipboard.au3>
#include <StaticConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1_1 = GUICreate("Encryptor-Decryptor", 517, 294, 192, 124)
$about = GUICtrlCreateButton("", 236, 240, 40, 40, BitOR($BS_ICON, $WS_GROUP))
GUICtrlSetImage(-1, "shell32.dll", -222)
$Encrypt = GUICtrlCreateButton("Encrypt ->", 216, 104, 81, 25, $WS_GROUP)
$Decrypt = GUICtrlCreateButton("<- Decrypt", 216, 144, 81, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 16, 48, 185, 201, BitOR($ES_CENTER, $ES_WANTRETURN))

$Edit2 = GUICtrlCreateEdit("", 312, 48, 185, 201, BitOR($ES_CENTER, $ES_WANTRETURN))

$Button1 = GUICtrlCreateButton("Copy", 16, 256, 57, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Clear", 144, 256, 57, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Copy", 312, 256, 57, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Clear", 440, 256, 57, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("Paste", 80, 256, 57, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Paste", 376, 256, 57, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Words", 80, 16, 55, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Code", 384, 16, 46, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

        Case $Encrypt
            $String = GUICtrlRead($Edit1)
            $Hex = _StringToHex($String)
            GUICtrlSetData($Edit2, $Hex)

        Case $Decrypt
            $Hex = GUICtrlRead($Edit2)
            $String = _HexToString($Hex)
            If $String = -1 Then
                GUICtrlSetData($Edit1, "Code is wrong")
            Else
                GUICtrlSetData($Edit1, $String)
            EndIf

        Case $Button1
            $clip1 = GUICtrlRead($Edit1)
            _ClipBoard_SetData($clip1)

        Case $Button2
            GUICtrlSetData($Edit1, "")


        Case $Button3
            $clip2 = GUICtrlRead($Edit2)
            _ClipBoard_SetData($clip2)

        Case $Button4
            GUICtrlSetData($Edit2, "")

        Case $Button5
            $paste1 = _ClipBoard_GetData()
            GUICtrlSetData($Edit1, $paste1)

        Case $Button6
            $paste2 = _ClipBoard_GetData()
            GUICtrlSetData($Edit2, $paste2)

        Case $about
            MsgBox(8192 + 262144 + 64, "About", "Coded by Mohamed Ashraf. All rights reserved" & @CRLF & "برمجة محمد اشرف. جميع الحقوق محفوظه" & @CRLF & "June 30, 2009")

    EndSwitch

WEnd

P.S. I dont know if someone did it before me and if someone did i'm sorry i didnt get the code from anywhere it all by me

Regards,

Encrypt-Decrypt.exe

Edited August 16, 2009 by egymma

[frog78]

_StringToHex() is not a encryption because you dot't have a key to decrypt it, so anyone can convert it back and read it.

[egymma]

of course it easy to convert i didnt mean encryption by it mean its just a quick way to tell someone something no one can understand " unless someone copy the code and look for hex decoder {in case that person knew this is hex}

anyway my bad >_<

just trying to make things easy

flattered by your reply ,

My best Regards .