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

  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