Jump to content
mr_M_index

Personal file encryption

Recommended Posts

Well I am pretty new to scripting and im stuck. I am trying to encrypt a personal file of mine but am having issues.

#include-once
#include <Crypt.au3>

Func _cn_encrypt_rc4($sDataorFile, $sOutFile = "", $sPass = "")
    Local $sData = $sDataorFile
    If FileExists($sDataorFile) Then
        $sData = FileRead($sDataorFile)
    EndIf
    If $sPass = "" Then $sPass = 12345
    Local $vKey = _Crypt_DeriveKey($sPass, $CALG_RC4)
    IF @error Then Return SetError(1, @error, False)
    Local $szEnc = _Crypt_EncryptData($sDataorFile, $vKey, $CALG_USERKEY)
    IF @error Then Return SetError(2, @error, False)
    If $sOutFile Then
        If Not FileExists($sOutFile) Then
            FileClose(FileOpen($sOutFile, 2))
            FileWrite($sOutFile, $szEnc)
            If @error Then Return SetError(3, @error, False)
            Return True
        EndIf
    EndIf
    Return $szEnc
EndFunc

Func _cn_decrypt_rc4($sDataorFile, $sOutFile = "", $sPass = "")
    Local $sData = $sDataorFile
    if FileExists($sDataorFile) Then
        $sData = FileRead($sDataorFile)
    EndIf
    If $sPass = "" Then $sPass = 12345
    Local $vKey = _Crypt_DeriveKey($sPass, $CALG_RC4)
    If @error Then Return SetError(1, @error, False)
    Local $szDec = _Crypt_DecryptData($sData, $vKey, $CALG_USERKEY)
    If @error Then Return SetError(2, @error, False)
    If $sOutFile Then
        If Not FileExists($sOutFile) Then
            FileClose(FileOpen($sOutFile, 2))
            FileWrite($sOutFile, $szDec)
            If @error Then Return SetError(3, @error, False)
            Return True
        EndIf
    EndIf
    Return $szDec
EndFunc

This is my test=

#include "encdec.au3"

_cn_encrypt_rc4(@UserProfileDir & "C:\Users\Chris Neal", @DesktopDir & "\Essential.txt", "abcdef")
_cn_decrypt_rc4(@DesktopDir & "C:\Users\Chris Neal, @DesktopDir & "\DecEssential.txt", "abcdef")

 

Edited by JLogan3o13

Share this post


Link to post
Share on other sites

Your code calling the 2 functions is horribly wrong as well. You're not giving the functions a file path and name to find the file to encrypt/decrypt. You're sending it the file name as

@UserProfileDir & "C:\Users\Chris Neal"

Which would translate to "C:\Users\Chris NealC:\Users\Chris Neal" (if Chris Neal is the current user).

The decrypt function is getting this: "C:\Users\Chris Neal\DesktopC:\Users\Chris Neal"

Edited by BrewManNH

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

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

×
×
  • Create New...