Sign in to follow this  
Followers 0
t0ddie

encryption

5 posts in this topic

am i lazy? i dont think so. i just cant find it!

but could someone point me in the right direction on how i could make this encrypted?

(just jotting code off the tpo of my head, may have errors)

$crypt = abc123
;do some encrypting here
fileopen("test.txt",1)
filewrite("test.txt",$crypt)
;should write somehting like sdolhwlhwtrliuh23458y23452r4f980yh433rfsih to that file

i have seen a gui that you enter text and it encrypts it but i cant find it.

i want to add it to my script so that i dont enter anything and it does it by itself when needed.


Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Share this post


Link to post
Share on other sites



I found one 3 post down in the search function.. Didn't go any further... Just looked at "Encrypt" in "Scripts and Scraps".

Encryption / and Snakes UDF's


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.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

looks nice. i ran the gui.. and i tried to add letters, but it wont let me.

is there something i can use for alphanumerical strings?

nevermind i see where i need to type it. this isnt encryption though.

it turns a character into a code that is the same thing at all points.

like this..

h = 123

i = 987

so if you had this

123987123987

it wound be easy to decipher as hihi

there is a pattern.

i would rather have somehting that worked with an algorhythm or something.

pretty much if i wanted to encrypt this...

hey hows it goin

i should get sdflkhewrfglihrgleurhge2395u3thgun4gbvpo943uh5tg0p9h45tgr98yi

now, if i wanted to encrypt it again... with that program i would get the exact same thing. sdflkhewrfglihrgleurhge2395u3thgun4gbvpo943uh5tg0p9h45tgr98yi

where as i should get something new every time.

i dont know if anyone has made encryption such as this, but please let me know if its out there as i dont want to re-invent the weel although it would take me a long time to make a program like that anyways.

i hope im making sense

Edited by t0ddie

Valik Note Added 19 October 2006 - 08:38 AMAdded to warn level I just plain don't like you.

Share this post


Link to post
Share on other sites

I say go for it. I don't think anybody has code for something like that, and if you can create it someone will use it.

Share this post


Link to post
Share on other sites

Hi,

maybe this is something you can use.

$encryptedUserID = _StringEncrypt ( 1, $UserID, "xyz123" , 3 )

IniWrite("pwd.ini", "UserID", "ID", $encryptedUserID)

xyz123 is used to encrpyt your String.

code-->

#include <GUIConstants.au3>

#include <string.au3>

Call("UserID")

Call("HostPWD")

Call("NotesPWD")

exit(0)

Func UserID()

$UserID = InputBox("Security Check", "Bitte geben Sie Ihre UserID ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

$UserID2 = InputBox("Security Check", "Bitte geben Sie Ihre UserID erneut ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

if $UserID = $UserID2 Then

$encryptedUserID = _StringEncrypt ( 1, $UserID, "xyz123" , 3 )

IniWrite("pwd.ini", "UserID", "ID", $encryptedUserID)

Else

$returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!")

Select

Case $returnWert = 4

Call("UserID")

Case Else

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit(0)

EndSelect

EndIf

EndFunc ;==>UserID

Func HostPWD()

$HostPWD = InputBox("Security Check", "Bitte geben Sie das Host-Passwort ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

$HostPWD2 = InputBox("Security Check", "Bitte geben Sie das Host-Passwort erneut ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

if $HostPWD = $HostPWD2 Then

$encryptedHOSTPWD = _StringEncrypt ( 1, $HOSTPWD, "test" , 3 )

IniWrite("pwd.ini", "Host", "PWD", $encryptedHOSTPWD)

Else

$returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!")

Select

Case $returnWert = 4

Call("UserID")

Case Else

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit(0)

EndSelect

EndIf

EndFunc ;==>HostPWD

Func NotesPWD()

$NotesPWD = InputBox("Security Check", "Bitte geben Sie das Notes-Passwort ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

$NotesPWD2 = InputBox("Security Check", "Bitte geben Sie das Notes-Passwort erneut ein:", "", "*", 220, 130)

If @error = 1 Then

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit

EndIf

if $NotesPWD = $NotesPWD2 Then

$encryptedNotesPWD = _StringEncrypt ( 1, $NotesPWD, "encrypthelp" , 3 )

IniWrite("pwd.ini", "Notes", "PWD", $encryptedNotesPWD)

Else

$returnWert = MsgBox(5, "Passwortcheck", "Die eingegenen Passwörter stimmen nicht überein!")

Select

Case $returnWert = 4

Call("UserID")

Case Else

MsgBox(64, "Information", "Das Skript wurde beendet", 2)

Exit(0)

EndSelect

EndIf

EndFunc ;==>NotesPWD

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
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
Sign in to follow this  
Followers 0