Jump to content

Realtime Encryption


James
 Share

Recommended Posts

#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 by AzKay
# MY LOVE FOR YOU... IS LIKE A TRUCK- #
Link to comment
Share on other sites

  • Moderators

Thanks Azkay.

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

Make an effort to edit it? :P

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

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
HKTunes:Softpedia | GoogleCodeLyricToy:Softpedia | GoogleCodeRCTunes:Softpedia | GoogleCodeMichtaToolsProgrammer n. - An ingenious device that turns caffeine into code.
Link to comment
Share on other sites

@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

My Programs:AInstall - Create a standalone installer for your programUnit Converter - Converts Length, Area, Volume, Weight, Temperature and Pressure to different unitsBinary Clock - Hours, minutes and seconds have 10 columns each to display timeAutoIt Editor - Code Editor with Syntax Highlighting.Laserix Editor & Player - Create, Edit and Play Laserix LevelsLyric Syncer - Create and use Synchronised Lyrics.Connect 4 - 2 Player Connect 4 Game (Local or Online!, Formatted Chat!!)MD5, SHA-1, SHA-256, Tiger and Whirlpool Hash Finder - Dictionary and Brute Force FindCool Text Client - Create Rendered ImageMy UDF's:GUI Enhance - Enhance your GUIs visually.IDEA File Encryption - Encrypt and decrypt files easily! File Rename - Rename files easilyRC4 Text Encryption - Encrypt text using the RC4 AlgorithmPrime Number - Check if a number is primeString Remove - remove lots of strings at onceProgress Bar - made easySound UDF - Play, Pause, Resume, Seek and Stop.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...