Realtime Encryption

[James]

I was wandering if I could make a real-time encryption?

So if I was to type, Secure_ICT, it would give me the encrypted text at the same time. It follows an inbuilt key.

Secure

[Snarg]

I would use this in combination with an input box.

Edited December 17, 2006 by Snarg

[James]

I dont know how.. I just need to know how to make the input use the key to encrypt in another box.

[AzKay]

#include <String.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 454, 193, 115)
$Input1 = GUICtrlCreateInput("", 48, 40, 153, 21)
$Input2 = GUICtrlCreateInput("", 48, 72, 153, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$String = _StringEncrypt(1, GUICtrlRead($Input1), "beef")
If $String <> "" Then ControlSend("AForm1", "", $Input2, $String)
WEnd

That gives you the general idea. Im well aware it doesnt work properly.

Edited December 17, 2006 by AzKay

[James]

Thanks Azkay.

How do I make it stop encrypting the same thing several times?

[SmOke_N]

Thanks Azkay.

How do I make it stop encrypting the same thing several times?

Make an effort to edit it?

[James]

I've tried, but I can't think of anything to do with it.

I have NO clue.

[FuryCell]

I've tried, but I can't think of anything to do with it.

I have NO clue.

#include <String.au3>
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 454, 193, 115)
$Input1 = GUICtrlCreateInput("", 48, 40, 153, 21)
$Input2 = GUICtrlCreateInput("", 48, 72, 153, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$String = _StringEncrypt(1, GUICtrlRead($Input1), "beef")
If $String <> "" Then GuiCtrlSetData($Input2,$String)
Wend

[James]

Thanks SolidSnake!

[FuryCell]

Thanks SolidSnake!

NP.

Edited December 18, 2006 by SolidSnake

[James]

Oh... When you erase all whats in the input1 box you still have something in the encrypted box.

[RazerM]

@Secure_ICT

#include <String.au3>
#include <GUIConstants.au3>

$Form1 = GUICreate("Real Time Encryption", 200, 150)
$Input1 = GUICtrlCreateInput("", 10, 10, 150, 21)
$Input2 = GUICtrlCreateInput("", 10, 40, 150, 21)
GUISetState()

Local $oldStr
While 1
    $Str = GUICtrlRead($Input1)
    If $Str <> $oldStr Then
        $EncryptedStr = _StringEncrypt(1, $Str, "beef")
        If $EncryptedStr <> "" Then
            GUICtrlSetData($Input2, $EncryptedStr)
        Else
            GUICtrlSetData($Input2, "")
        EndIf
        $oldStr = $Str
    EndIf
    If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
WEnd

That uses less cpu by only encrypting if the string has changed, and fixes that problem

[James]

Thanks RazorM. I will try that when I get home.