VB.Net by API/System.Security.Cryptography/SymmetricAlgorithm — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
м (1 версия)
 
(нет различий)

Текущая версия на 12:50, 26 мая 2010

SymmetricAlgorithm.Create

  
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System
Imports Microsoft.VisualBasic.ControlChars
Public Class SymKey
    Public Shared Sub Main(ByVal CmdArgs() As String)
        Dim algo() As String = {"DES", "RC2", "Rijndael", "TripleDES"}
        Dim keyStringDeclare As StringBuilder = New StringBuilder
        Dim ivz As StringBuilder = New StringBuilder
        keyStringDeclare.Append("Dim b64Keys() As String = { _" + VbCrLf)
        ivz.Append(vbCrLf + "Dim b64IVs() As String = { _" + vbCrLf)
        Dim comma As String = ", _" + vbCrLf
        For i As Integer = 0 To 3
            Dim sa As SymmetricAlgorithm = SymmetricAlgorithm.Create(algo(i))
            sa.GenerateIV()
            sa.GenerateKey()
            Dim Key As String
            Dim IV As String
            Key = Convert.ToBase64String(sa.Key)
            IV = Convert.ToBase64String(sa.IV)
            keyStringDeclare.AppendFormat(Tab + """" + Key + """" + comma)
            ivz.AppendFormat(Tab + """" + IV + """" + comma)
            If i = 2 Then comma = " "
        Next i
        keyStringDeclare.Append("}")
        ivz.Append("}")
        Console.WriteLine(keyStringDeclare.ToString())
        Console.WriteLine(ivz.ToString())
    End Sub
End Class


SymmetricAlgorithm.GenerateIV()

  
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System
Imports Microsoft.VisualBasic.ControlChars
Public Class SymKey
    Public Shared Sub Main(ByVal CmdArgs() As String)
        Dim algo() As String = {"DES", "RC2", "Rijndael", "TripleDES"}
        Dim keyStringDeclare As StringBuilder = New StringBuilder
        Dim ivz As StringBuilder = New StringBuilder
        keyStringDeclare.Append("Dim b64Keys() As String = { _" + VbCrLf)
        ivz.Append(vbCrLf + "Dim b64IVs() As String = { _" + vbCrLf)
        Dim comma As String = ", _" + vbCrLf
        For i As Integer = 0 To 3
            Dim sa As SymmetricAlgorithm = SymmetricAlgorithm.Create(algo(i))
            sa.GenerateIV()
            sa.GenerateKey()
            Dim Key As String
            Dim IV As String
            Key = Convert.ToBase64String(sa.Key)
            IV = Convert.ToBase64String(sa.IV)
            keyStringDeclare.AppendFormat(Tab + """" + Key + """" + comma)
            ivz.AppendFormat(Tab + """" + IV + """" + comma)
            If i = 2 Then comma = " "
        Next i
        keyStringDeclare.Append("}")
        ivz.Append("}")
        Console.WriteLine(keyStringDeclare.ToString())
        Console.WriteLine(ivz.ToString())
    End Sub
End Class


SymmetricAlgorithm.GenerateKey()

  
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO
Imports System
Imports Microsoft.VisualBasic.ControlChars
Public Class SymKey
    Public Shared Sub Main(ByVal CmdArgs() As String)
        Dim algo() As String = {"DES", "RC2", "Rijndael", "TripleDES"}
        Dim keyStringDeclare As StringBuilder = New StringBuilder
        Dim ivz As StringBuilder = New StringBuilder
        keyStringDeclare.Append("Dim b64Keys() As String = { _" + VbCrLf)
        ivz.Append(vbCrLf + "Dim b64IVs() As String = { _" + vbCrLf)
        Dim comma As String = ", _" + vbCrLf
        For i As Integer = 0 To 3
            Dim sa As SymmetricAlgorithm = SymmetricAlgorithm.Create(algo(i))
            sa.GenerateIV()
            sa.GenerateKey()
            Dim Key As String
            Dim IV As String
            Key = Convert.ToBase64String(sa.Key)
            IV = Convert.ToBase64String(sa.IV)
            keyStringDeclare.AppendFormat(Tab + """" + Key + """" + comma)
            ivz.AppendFormat(Tab + """" + IV + """" + comma)
            If i = 2 Then comma = " "
        Next i
        keyStringDeclare.Append("}")
        ivz.Append("}")
        Console.WriteLine(keyStringDeclare.ToString())
        Console.WriteLine(ivz.ToString())
    End Sub
End Class