File Encryption

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

File Encryption

Logged in as: Guest

arrSession:exec spGetSession 2,2,32274

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> File Encryption
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

File Encryption - 3/14/2006 1:12:18 PM

bistmaster

Posts: 10
Score: 0
Joined: 2/24/2006
Status: offline

Hi guys,

Good day! i would like to ask if vbscript can encrypt/decrypt file. And what would be the best methods or algorithms to be used.

Thank you so much in advance.

_____________________________

Bistmaster
Web Developer / Programmer

Post #: 1

RE: File Encryption - 3/15/2006 3:05:43 AM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

VBScript can not encrypt/decrypt files alone but you can use VBScript to access a third party application to accomplish the task.

Cybex

_____________________________

Common sense is not so common.

(in reply to bistmaster)

Post #: 2

RE: File Encryption - 3/15/2006 12:59:18 PM

bistmaster

Posts: 10
Score: 0
Joined: 2/24/2006
Status: offline

Thanks aiagn cybex...:)

Yah, i need third party API with this kind of task. Maybe an ActiveX or DLL that support Encryption/Decrytpion. Then ill just intantiate it.

-Bistmaster-

_____________________________

Bistmaster
Web Developer / Programmer

(in reply to bistmaster)

Post #: 3

RE: File Encryption - 3/15/2006 4:37:02 PM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

i googled and found one, it uses rc4 encryption. i havent tested it however...

source:
http://www.4guysfromrolla.com/webtech/code/rc4.inc.html

':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   ':::                                                             :::
   ':::  This script performs 'RC4' Stream Encryption               :::
   ':::  (Based on what is widely thought to be RSA's RC4           :::
   ':::  algorithm. It produces output streams that are identical   :::
   ':::  to the commercial products)                                :::
   ':::                                                             :::
   ':::  This script is Copyright � 1999 by Mike Shaffer            :::
   ':::  ALL RIGHTS RESERVED WORLDWIDE                              :::
   ':::                                                             :::
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   ':::                                                             :::
   ':::  This routine passes the standard test vectors for the      :::
   ':::  RC4 algorithm. The test vectors are included below for     :::
   ':::  easy cut-and-paste verification. It is recommended that    :::
   ':::  you remove these comments for actual production to         :::
   ':::  reduce initial script parsing/processing time.             :::
   ':::                                                             :::
   ':::                                                             :::
   Dim sbox(255)
   Dim key(255)

Sub RC4Initialize(strPwd)
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   ':::  This routine called by EnDeCrypt function. Initializes the :::
   ':::  sbox and the key array)                                    :::
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

dim tempSwap
      dim a
      dim b

intLength = len(strPwd)
      For a = 0 To 255
         key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))
         sbox(a) = a
      next

b = 0
      For a = 0 To 255
         b = (b + sbox(a) + key(a)) Mod 256
         tempSwap = sbox(a)
         sbox(a) = sbox(b)
         sbox(b) = tempSwap
      Next
   
   End Sub
   
   Function EnDeCrypt(plaintxt, psw)
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   ':::  This routine does all the work. Call it both to ENcrypt    :::
   ':::  and to DEcrypt your data.                                  :::
   ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

dim temp
      dim a
      dim i
      dim j
      dim k
      dim cipherby
      dim cipher

i = 0
      j = 0

RC4Initialize psw

For a = 1 To Len(plaintxt)
         i = (i + 1) Mod 256
         j = (j + sbox(i)) Mod 256
         temp = sbox(i)
         sbox(i) = sbox(j)
         sbox(j) = temp
   
         k = sbox((sbox(i) + sbox(j)) Mod 256)

cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
         cipher = cipher & Chr(cipherby)
      Next

EnDeCrypt = cipher

End Function

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

(in reply to bistmaster)

Post #: 4

RE: File Encryption - 3/15/2006 5:14:58 PM

bistmaster

Posts: 10
Score: 0
Joined: 2/24/2006
Status: offline

Thank you kirrlian.

I also got that code. :) Yet i dont think if its applicable for file encyption/decrytion. :)

Thanks again.

_____________________________

Bistmaster
Web Developer / Programmer

(in reply to bistmaster)

Post #: 5

RE: File Encryption - 3/15/2006 9:34:42 PM

ginolard

Posts: 1082
Score: 21
Joined: 8/10/2005
Status: offline

What's wrong with running the CIPHER command via the Shell.Run Method?

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to bistmaster)

Post #: 6

RE: File Encryption - 3/15/2006 9:57:36 PM

bistmaster

Posts: 10
Score: 0
Joined: 2/24/2006
Status: offline

Hello ginolard!

I havent used cipher command. Does the windows support cipher encryption?

Thanks

(in reply to ginolard)

Post #: 7

RE: File Encryption - 3/15/2006 11:17:36 PM

Cybex

Posts: 412
Score: 0
Joined: 9/14/2005
From: Florida
Status: offline

I am almost positive it is a commandline tool for using the native Encrypting File System (EFS) in Windows. One thing to note is that in order to share data among large groups of users using EFS, I believe each individual user has to be added by name to the ACL. I do not think it supports groups ebing added to the ACL.

Cybex

_____________________________

Common sense is not so common.

(in reply to bistmaster)

Post #: 8

RE: File Encryption - 3/15/2006 11:35:56 PM

ginolard

Posts: 1082
Score: 21
Joined: 8/10/2005
Status: offline

It's a standard command in XP

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to bistmaster)