问适用于windows 7和8的加密技术

EN

    Dim Password As String = "PasswordPassword"
    Dim data1 As String = "Some test data to check this encodes correctly  "

    Dim PasswordBA = System.Text.UTF8Encoding.UTF8.GetBytes(Password.ToArray)
    Dim EncIVBA() As Byte = {183, 124, 217, 35, 247, 115, 33, 34, 191, 47, 186, 52, 54, 145, 56, 14}

    ' Encrypt the data. 
    Dim encAlg = System.Security.Cryptography.Aes.Create()
    encAlg.Key = PasswordBA
    encAlg.IV = EncIVBA
    Dim encryptionStream As New MemoryStream()
    Dim encrypt As New CryptoStream(encryptionStream, encAlg.CreateEncryptor(), CryptoStreamMode.Write)
    Dim utfD1 As Byte() = New System.Text.UTF8Encoding(False).GetBytes(data1)
    encrypt.Write(utfD1, 0, utfD1.Length)
    encrypt.FlushFinalBlock()
    encrypt.Close()
    Dim edata1 As Byte() = encryptionStream.ToArray() ' 40, 104 ..
    IO.File.WriteAllBytes("C:\Users\Ralph\AppData\Local\Packages\5ff3fe41-65d0-4e09-b1db-9082e9763abb_e4zkcfr8ebjb0\LocalState\ForWin8.dat", edata1)

    ' Decrypt, thus showing it can be round-tripped. 
    'Dim EData2 = IO.File.ReadAllBytes("D:\ForWin8.dat")
    Dim EData2 = IO.File.ReadAllBytes("C:\Users\Ralph\AppData\Local\Packages\5ff3fe41-65d0-4e09-b1db-9082e9763abb_e4zkcfr8ebjb0\LocalState\ForWin7.dat")
    Dim decAlg = System.Security.Cryptography.Aes.Create
    decAlg.Key = PasswordBA
    decAlg.IV = EncIVBA
    Dim decryptionStreamBacking As New MemoryStream()
    Dim decrypt As New CryptoStream(decryptionStreamBacking, decAlg.CreateDecryptor(), CryptoStreamMode.Write)
    decrypt.Write(edata2, 0, edata2.Length)
    decrypt.Flush()
    decrypt.Close()
    Dim data2 As String = New UTF8Encoding(False).GetString(decryptionStreamBacking.ToArray())

    If Not data1.Equals(data2) Then
        Console.WriteLine("Error: The two values are not equal.")
    Else
        Console.WriteLine("The two values are equal.")
    End If

    ' encrypt
    Dim data1 As String = "Some test data to check this encodes correctly"
    Dim Data1Len = data1.Length
    Dim Data1LenPad = ((Data1Len - 1) Or 15) + 1
    data1 = data1.PadRight(Data1LenPad, " "c)
    Dim algname = SymmetricAlgorithmNames.AesCbc
    Dim alg = SymmetricKeyAlgorithmProvider.OpenAlgorithm(algname)
    Dim pw = CryptographicBuffer.ConvertStringToBinary("PasswordPassword", BinaryStringEncoding.Utf8)
    Dim bl = alg.BlockLength
    Dim buffMsg = CryptographicBuffer.ConvertStringToBinary(data1, BinaryStringEncoding.Utf8)

    Dim EncIVBA() As Byte = {183, 124, 217, 35, 247, 115, 33, 34, 191, 47, 186, 52, 54, 145, 56, 14}
    Dim EncIV = CryptographicBuffer.ConvertStringToBinary(data1, BinaryStringEncoding.Utf8)

    Dim key = alg.CreateSymmetricKey(pw)
    Dim Enc = CryptographicEngine.Encrypt(key, buffMsg, EncIV)

    Dim EncLen = Enc.Length
    Dim Encba As Byte()
    ReDim Encba(CInt(EncLen - 1))
    CryptographicBuffer.CopyToByteArray(Enc, Encba)

    Dim file1 As Windows.Storage.StorageFile = Await Windows.Storage.ApplicationData.Current.LocalFolder.CreateFileAsync("ForWin7.dat", Windows.Storage.CreationCollisionOption.ReplaceExisting)
    Dim fileStream1 As Stream = Await file1.OpenStreamForWriteAsync()
    fileStream1.Write(Encba, 0, Encba.Length)
    Await fileStream1.FlushAsync()

    'Dim file As Windows.Storage.StorageFile = Await Windows.Storage.ApplicationData.Current.LocalFolder.GetFileAsync("ForWin7.dat")
    Dim file As Windows.Storage.StorageFile = Await Windows.Storage.ApplicationData.Current.LocalFolder.GetFileAsync("ForWin8.dat")
    Dim Enc2 = Await FileIO.ReadBufferAsync(file)

    Dim Data2Buf = CryptographicEngine.Decrypt(key, Enc2, EncIV)
    Dim Data2 = CryptographicBuffer.ConvertBinaryToString(BinaryStringEncoding.Utf8, Data2Buf)

    If Not data1.Equals(Data2) Then
        Dim Status = "Error: The two values are not equal."
    Else
        Dim Status = "The two values are equal."
    End If