From cb58c22d232766d955d6c9d37e168e505b5faa9d Mon Sep 17 00:00:00 2001
From: ShiftOS <archive@shiftos.dev>
Date: Sat, 11 Oct 2014 14:14:20 -0400
Subject: Init

---
 ShiftOS/File_Crypt.vb | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 ShiftOS/File_Crypt.vb

(limited to 'ShiftOS/File_Crypt.vb')

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
-- 
cgit v1.2.3