Sign in to follow this  
Followers 0
Guest Guidosoft

File Encryption Include File

5 posts in this topic

#1 ·  Posted (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 Transposition

Character Substitution

PlainText Table Cordinates

Read 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 by Guidosoft

Share this post


Link to post
Share on other sites

#2 ·  Posted (edited)

:wacko::idea::lmao::idea::D:D:idiot:;):D:D:lol: Edited by Guidosoft

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

:D:idea::idea::wacko::lmao::lol:;):idiot::D:D:D

wow that was a pointless post...

Edited by killaz219

Share this post


Link to post
Share on other sites

#4 ·  Posted (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.

;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 by Guidosoft

Share this post


Link to post
Share on other sites

I have just released version 1.2. If you wan't to know what the changes are THEN GOTO MY WEBPAGE YA BUMS!!!

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