Útmutató: Sztringek titkosítása és visszafejtése a Visual Basicben

Ez az útmutató bemutatja, hogyan használhatja a TripleDES osztályt karakterláncok titkosítására és visszafejtésére a Triple Data Encryption Standard (3DES) algoritmussal. Az első lépés egy egyszerű burkolóosztály létrehozása, amely beágyazza a 3DES algoritmust, és a titkosított adatokat base-64 kódolású sztringként tárolja. Ezt követően a burkoló használatával biztonságosan tárolhatja a magánfelhasználói adatokat egy nyilvánosan elérhető szövegfájlban.

Titkosítással védheti a felhasználói titkos kódokat (például jelszavakat), és olvashatatlanná teheti a hitelesítő adatokat jogosulatlan felhasználók számára. Ez megvédheti a jogosult felhasználó személyazonosságát az adattolvajoktól, ami védi a felhasználó eszközeit, és biztosítja a visszautasíthatatlanságot. A titkosítás védelmet nyújt a felhasználók adatainak jogosulatlan felhasználók általi elérésétől is.

További információ: Cryptographic Services.

Fontos

A Rijndael (ma Advanced Encryption Standard [AES]) és a Triple Data Encryption Standard (3DES) algoritmusok nagyobb biztonságot nyújtanak, mint a DES, mivel számítási szempontból intenzívebbek. További információ: DES és Rijndael.

A titkosítási burkoló létrehozása

Hozza létre az osztályt a Simple3Des titkosítási és visszafejtési módszerek beágyazásához.
```
Public NotInheritable Class Simple3Des
End Class
```
Adja hozzá a titkosítási névtér importálását az osztályt tartalmazó Simple3Des fájl elejéhez.
```
Imports System.Security.Cryptography
```
Simple3Des Az osztályban adjon hozzá egy privát mezőt a 3DES titkosítási szolgáltató tárolásához.
```
Private TripleDes As TripleDES = TripleDES.Create()
```

Adjon hozzá egy privát metódust, amely egy megadott hosszúságú bájttömböt hoz létre a megadott kulcs kivonatából.

Private Function TruncateHash( 
    ByVal key As String, 
    ByVal length As Integer) As Byte()

    Using sha256 As SHA256 = SHA256.Create()
        ' Hash the key.
        Dim keyBytes() As Byte = 
            System.Text.Encoding.Unicode.GetBytes(key)
        Dim hash() As Byte = sha256.ComputeHash(keyBytes)

        ' Truncate or pad the hash.
        ReDim Preserve hash(length - 1)
        Return hash
    End Using
End Function

Adjon hozzá egy konstruktort a 3DES titkosítási algoritmus inicializálásához.

A key paraméter vezérli a EncryptData és a DecryptData metódusokat.

Sub New(ByVal key As String)
    ' Initialize the crypto provider.
    TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
    TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
End Sub

Adjon hozzá egy nyilvános metódust, amely titkosít egy sztringet.

Public Function EncryptData( 
    ByVal plaintext As String) As String

    ' Convert the plaintext string to a byte array.
    Dim plaintextBytes() As Byte = 
        System.Text.Encoding.Unicode.GetBytes(plaintext)

    ' Create the stream.
    Dim ms As New System.IO.MemoryStream
    ' Create the encoder to write to the stream.
    Dim encStream As New CryptoStream(ms, 
        TripleDes.CreateEncryptor(), 
        System.Security.Cryptography.CryptoStreamMode.Write)

    ' Use the crypto stream to write the byte array to the stream.
    encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
    encStream.FlushFinalBlock()

    ' Convert the encrypted stream to a printable string.
    Return Convert.ToBase64String(ms.ToArray)
End Function

Adjon hozzá egy nyilvános metódust, amely visszafejt egy sztringet.

Public Function DecryptData( 
    ByVal encryptedtext As String) As String

    ' Convert the encrypted text string to a byte array.
    Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)

    ' Create the stream.
    Dim ms As New System.IO.MemoryStream
    ' Create the decoder to write to the stream.
    Dim decStream As New CryptoStream(ms, 
        TripleDes.CreateDecryptor(), 
        System.Security.Cryptography.CryptoStreamMode.Write)

    ' Use the crypto stream to write the byte array to the stream.
    decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
    decStream.FlushFinalBlock()

    ' Convert the plaintext stream to a string.
    Return System.Text.Encoding.Unicode.GetString(ms.ToArray)
End Function

A burkolóosztály mostantól használható a felhasználói eszközök védelmére. Ebben a példában a magánfelhasználói adatok biztonságos tárolására szolgál egy nyilvánosan elérhető szöveges fájlban.

A titkosítási burkoló tesztelése

Egy külön osztályban adjon hozzá egy metódust, amely a burkoló metódusával EncryptData titkosít egy sztringet, és írja be a felhasználó Dokumentumok mappájába.

Sub TestEncoding()
    Dim plainText As String = InputBox("Enter the plain text:")
    Dim password As String = InputBox("Enter the password:")

    Dim wrapper As New Simple3Des(password)
    Dim cipherText As String = wrapper.EncryptData(plainText)

    MsgBox("The cipher text is: " & cipherText)
    My.Computer.FileSystem.WriteAllText( 
        My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
        "\cipherText.txt", cipherText, False)
End Sub

Adjon hozzá egy metódust, amely beolvassa a titkosított sztringet a felhasználó Dokumentumok mappájából, és visszafejti a sztringet a burkoló metódusával DecryptData .

Sub TestDecoding()
    Dim cipherText As String = My.Computer.FileSystem.ReadAllText( 
        My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
            "\cipherText.txt")
    Dim password As String = InputBox("Enter the password:")
    Dim wrapper As New Simple3Des(password)

    ' DecryptData throws if the wrong password is used.
    Try
        Dim plainText As String = wrapper.DecryptData(cipherText)
        MsgBox("The plain text is: " & plainText)
    Catch ex As System.Security.Cryptography.CryptographicException
        MsgBox("The data could not be decrypted with the password.")
    End Try
End Sub

Adjon hozzá felhasználói felület kódot a TestEncoding és TestDecoding metódusok meghívásához.
Indítsa el az alkalmazást.

Az alkalmazás tesztelésekor figyelje meg, hogy nem fejti vissza az adatokat, ha helytelen jelszót ad meg.

Lásd még

Visszajelzés

Hasznosnak találta ezt az oldalt?

Last updated on 2025-09-17