Guest Guidosoft Posted December 18, 2004 Share Posted December 18, 2004 (edited) http://www.autoitscript.com/fileman/users/public/Guidosoft/ - the script is on that crapy web page. I will be making new versions.With this script you can easily encrypt strings using currently 3 different methods but later version will have more control over these methods and much more encryptions. If you need a more secure encryption, I suggest you combine a bunch of them into an algorithim, a single encryption. However, you yourself must process the files if you want to encrypt a file. You have to read the string and then encrypt it with my include file.So far I have 3 encryption methods:Columnar TranspositionCharacter SubstitutionPlainText Table CordinatesRead the include file comments to learn more.So what do you think.Will this be of any help to any of you??? I will be posting an example soon. Edited December 18, 2004 by Guidosoft Link to comment Share on other sites More sharing options...
Guest Guidosoft Posted December 18, 2004 Share Posted December 18, 2004 (edited) Edited December 18, 2004 by Guidosoft Link to comment Share on other sites More sharing options...
killaz219 Posted December 19, 2004 Share Posted December 19, 2004 (edited) wow that was a pointless post... Edited December 19, 2004 by killaz219 Link to comment Share on other sites More sharing options...
Guest Guidosoft Posted December 19, 2004 Share Posted December 19, 2004 (edited) Here is a quick example. It requires the GUI version of AutoIt however. This paticular script, shows an example of a week encryption however. expandcollapse popup;Script: Encryption Example ;Author: Guido Arbia ;Requirements: AutoIt v3 Unstable GUI #include <GuiConstants.au3> #Include "D:\AutoIt\Encryptor.AU3" Dim $WS_OVERLAPPEDWINDOW = 0xCF0000, $WS_VISIBLE = 0x10000000, $WS_CLIPSIBLINGS = 0x04000000 GuiCreate("Real Quick Encrypt", 214, 165,(@DesktopWidth-214)/2, (@DesktopHeight-165)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $Group_1 = GuiCtrlCreateGroup("Source File", 10, 10, 200, 50) $Group_2 = GuiCtrlCreateGroup("Destination File", 10, 70, 200, 50) $txtDest = GuiCtrlCreateInput("", 20, 90, 180, 20) $txtSource = GuiCtrlCreateInput("", 20, 30, 180, 20) $btnEncode = GuiCtrlCreateButton("Encode", 10, 130, 80, 30) $btnDecode = GuiCtrlCreateButton("Decode", 110, 130, 80, 30) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $btnEncode Encrypt() Case $msg = $btnDecode Decrypt() Case Else ;;; EndSelect WEnd Exit Func Encrypt() $FSize = FileGetSize(GuiRead($txtSource)) $SFile = FileOpen(GuiRead($txtSource),0) $DFile = FileOpen(GuiRead($txtDest),1) For $I = 1 to $FSize step 9 $Line = FileRead($SFile,9) $Line = ColumnarTranspose($Line,3) FileWrite($DFile,$Line) Next FileClose($SFile) FileClose($DFile) EndFunc Func Decrypt() $FSize = FileGetSize(GuiRead($txtSource)) $SFile = FileOpen(GuiRead($txtSource),0) $DFile = FileOpen(GuiRead($txtDest),1) For $I = 1 to $FSize step 9 $Line = FileRead($SFile,9) $Line = ColumnarDetranspose($Line,3) FileWrite($DFile,$Line) Next FileClose($SFile) FileClose($DFile) EndFunc Edited December 19, 2004 by Guidosoft Link to comment Share on other sites More sharing options...
Guest Guidosoft Posted December 20, 2004 Share Posted December 20, 2004 I have just released version 1.2. If you wan't to know what the changes are THEN GOTO MY WEBPAGE YA BUMS!!! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now