encryption

[t0ddie]

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.

[SmOke_N]

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

[t0ddie]

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 September 12, 2005 by t0ddie

[therks]

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.

[Xenobiologist]

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