diff options
| author | ShiftOS <[email protected]> | 2014-10-11 14:14:20 -0400 |
|---|---|---|
| committer | Andrew Lee <[email protected]> | 2014-10-11 14:14:20 -0400 |
| commit | cb58c22d232766d955d6c9d37e168e505b5faa9d (patch) | |
| tree | 6dc22833fd0071fbe64b688e2e3f295450300301 /ShiftOS/File_Crypt.vb | |
| download | shiftos-original.tar.gz shiftos-original.tar.bz2 shiftos-original.zip | |
Initoriginal
Diffstat (limited to 'ShiftOS/File_Crypt.vb')
| -rw-r--r-- | ShiftOS/File_Crypt.vb | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/ShiftOS/File_Crypt.vb b/ShiftOS/File_Crypt.vb new file mode 100644 index 0000000..481021b --- /dev/null +++ b/ShiftOS/File_Crypt.vb @@ -0,0 +1,55 @@ +Imports System
+Imports System.IO
+Imports System.Security
+Imports System.Security.Cryptography
+Imports System.Text
+Public Class File_Crypt
+ Public Const sSecretKey As String = "Password"
+
+ Public Shared Sub EncryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
+
+ Dim fsInput As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
+ Dim fsEncrypted As New FileStream(sOutputFilename, FileMode.Create, FileAccess.Write)
+
+ Dim DES As New DESCryptoServiceProvider()
+
+
+ DES.Key = ASCIIEncoding.ASCII.GetBytes(sKey)
+
+ DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
+
+ Dim desencrypt As ICryptoTransform = DES.CreateEncryptor()
+
+ Dim cryptostream As New CryptoStream(fsEncrypted, desencrypt, CryptoStreamMode.Write)
+
+ Dim bytearrayinput(fsInput.Length - 1) As Byte
+ fsInput.Read(bytearrayinput, 0, bytearrayinput.Length)
+ cryptostream.Write(bytearrayinput, 0, bytearrayinput.Length)
+ cryptostream.Dispose()
+ fsInput.Dispose()
+ fsEncrypted.Dispose()
+ End Sub
+
+ Public Shared Sub DecryptFile(ByVal sInputFilename As String, ByVal sOutputFilename As String, ByVal sKey As String)
+
+ Dim DES As New DESCryptoServiceProvider()
+
+
+ DES.Key() = ASCIIEncoding.ASCII.GetBytes(sKey)
+
+ DES.IV = ASCIIEncoding.ASCII.GetBytes(sKey)
+
+ Dim fsread As New FileStream(sInputFilename, FileMode.Open, FileAccess.Read)
+
+ Dim desdecrypt As ICryptoTransform = DES.CreateDecryptor()
+
+ Dim cryptostreamDecr As New CryptoStream(fsread, desdecrypt, CryptoStreamMode.Read)
+
+ Dim fsDecrypted As New StreamWriter(sOutputFilename)
+ fsDecrypted.Write(New StreamReader(cryptostreamDecr).ReadToEnd)
+ fsDecrypted.Flush()
+ fsread.Dispose()
+ fsDecrypted.Dispose()
+ End Sub
+
+End Class
\ No newline at end of file |