Jump to content

File Encryption Include File


Recommended Posts

Guest Guidosoft
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
Guest Guidosoft
Posted (edited)
:wacko::idea::lmao::idea::D:D:idiot:;):D:D:lol: Edited by Guidosoft
Guest Guidosoft
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
Guest Guidosoft
Posted

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

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
  • Recently Browsing   0 members

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