BÖAR BÖLASDJASPDJAPSDJPASDJPASD
asdj
...

AB0_í-M3‚Sþr¯WPJAPSDJPASDJPASD
asdj
...

  Public Shared Sub EncryptFile(ByVal sSource As String, ByVal sTarget As String, Optional ByVal BufferSize As Long = 4096)
		Dim ErrorHappened As Boolean = False
		Dim OldFileStream As FileStream
		Dim NewFileStream As FileStream
		Dim CrypStream As CryptoStream
	Try
		Dim key As String = "mypw"
		Dim skey() As Byte = SecurityFunctions.GetPasswordHashInBytes(key)


		 OldFileStream = New FileStream(sSource, FileMode.Open)
		 NewFileStream = New FileStream(sTarget, FileMode.Create)
		Dim RijndaelManaged As New RijndaelManaged

		RijndaelManaged.Key = skey
		RijndaelManaged.GenerateIV()


		  CrypStream = New CryptoStream(NewFileStream, RijndaelManaged.CreateEncryptor(skey, RijndaelManaged.IV), CryptoStreamMode.Write)
		Dim Data(BufferSize) As Byte
		Dim Buffer As Long
		Dim BufferCount As Long
		Dim FileLen As Long = OldFileStream.Length

		Do
			If BufferCount >= FileLen - BufferSize Then
				ReDim Data(FileLen - BufferCount)
				Buffer = OldFileStream.Read(Data, 0, FileLen - BufferCount)
				CrypStream.Write(Data, 0, Buffer)
				Exit Do
			End If

			Buffer = OldFileStream.Read(Data, 0, BufferSize)
			CrypStream.Write(Data, 0, BufferSize)
			BufferCount += Buffer
		Loop


		CrypStream.Close()

	Catch ex As Exception
		MsgBox("Error!" & vbCrLf & ex.Message)
		ErrorHappened = True
	Finally
	  NewFileStream.Close()
	  OldFileStream.Close()
	End Try
	If ErrorHappened Then
	  My.Computer.FileSystem.DeleteFile(sTarget)
	End If
  End Sub

	Public Shared Sub DecryptFile(ByVal sSource As String, ByVal sTarget As String, Optional ByVal BufferSize As Long = 4096)
		Dim ErrorHappened As Boolean = False
		Dim OldFileStream As FileStream
		Dim NewFileStream As FileStream
		Dim CrypStream As CryptoStream
	Try

 
		Dim key As String = "mypw"
		Dim skey() As Byte = SecurityFunctions.GetPasswordHashInBytes(key)

		OldFileStream = New FileStream(sSource, FileMode.Open)
		NewFileStream = New FileStream(sTarget, FileMode.Create)
		Dim RijndaelManaged As New RijndaelManaged()


		RijndaelManaged.Key = skey
		RijndaelManaged.GenerateIV()

		CrypStream = New CryptoStream(OldFileStream, RijndaelManaged.CreateDecryptor(skey, RijndaelManaged.IV), CryptoStreamMode.Read)

		Dim Data(BufferSize) As Byte
		Dim Buffer As Long
		Dim BufferCount As Long
		Dim FileLen As Long = OldFileStream.Length

		Do
			If BufferCount >= FileLen - BufferSize Then
				ReDim Data(FileLen - BufferCount)
				Buffer = CrypStream.Read(Data, 0, FileLen - BufferCount)
				NewFileStream.Write(Data, 0, Buffer)
				Exit Do
			End If

			Buffer = CrypStream.Read(Data, 0, BufferSize)
			NewFileStream.Write(Data, 0, BufferSize)

			BufferCount += Buffer
		Loop
		CrypStream.Close()
	Catch ex As Exception

		MsgBox("Error!" & vbCrLf & ex.Message)
		ErrorHappened = True
	Finally
		NewFileStream.Close()
		OldFileStream.Close()
	End Try
	If ErrorHappened Then
	  My.Computer.FileSystem.DeleteFile(sTarget)
	End If
  End Sub

This post has been edited by chrixko: 28 May 2009 - 08:36 AM

  Private Shared Rijndael As New RijndaelManaged()

  Public Shared Sub Encrypt(ByVal Source As String, ByVal Destination As String)
	Dim content As String
	Rijndael.Key = SecurityFunctions.GetPasswordHashInBytes("mypw")

	Dim Transform As ICryptoTransform = Rijndael.CreateEncryptor()
	Dim fs As New FileStream(Destination, FileMode.Create)
	fs.Write(Rijndael.IV, 0, Rijndael.IV.Length)
	Dim cs As New CryptoStream(fs, Transform, CryptoStreamMode.Write)

	Dim w As New StreamWriter(cs)
	Dim sr As New StreamReader(Source)
	content = sr.ReadToEnd
	w.Write(content)
	w.Flush()
	sr.Close()
	cs.FlushFinalBlock()
	w.Close()
	Array.Clear(Rijndael.Key, 0, Rijndael.Key.Length)
  End Sub

  Public Shared Sub Decrypt(ByVal Source As String, ByVal Destination As String)
	Dim content As String
	Dim fs As New FileStream(Source, FileMode.Open)

	Dim iv() As Byte
	ReDim iv(Rijndael.IV.Length - 1)
	fs.Read(iv, 0, iv.Length)
	Rijndael.IV = iv

	Dim transform As ICryptoTransform = Rijndael.CreateDecryptor(SecurityFunctions.GetPasswordHashInBytes("mypw"), Rijndael.IV)

	Dim cs As New CryptoStream(fs, transform, CryptoStreamMode.Read)

	Dim r As New StreamReader(cs)
	content = r.ReadToEnd
	r.Close()
	Dim sw As New StreamWriter(Destination)
	sw.Write(content)
	sw.Close()
  End Sub