Generate DSA Key and value : Cryptography « Security « VB.Net

1. VB.Net
2. Security
3. Cryptography

Generate DSA Key and value

Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Public Class DSASign
    
    Public Shared Sub Main(ByVal CmdArgs() As String)

        Dim dsa As DSACryptoServiceProvider = New DSACryptoServiceProvider
        Dim prv As String = dsa.ToXmlString(True)
        Dim pub As String = dsa.ToXmlString(False)

        SaveString("dsa-key.xml", prv)
        SaveString("dsa-pub.xml", pub)
        Console.WriteLine("Created dsa-key.xml and dsa-pub.xml")

    End Sub

    Shared Public Sub SaveString(ByVal fname As String, ByVal data As String)
        Dim datas() As Byte = (New ASCIIEncoding).GetBytes(data)

        Dim fs As FileStream = File.OpenWrite(fname)
        fs.SetLength(0)
        fs.Write(datas, 0, datas.Length)
        fs.Close()

    End Sub
    
    Shared Public Function LoadString(ByVal fname As String) As String
        Dim finfo As FileInfo = New FileInfo(fname)
        Dim length As String = CType(finfo.Length, String)
        Dim buf() As Byte = New Byte(length) {}
        Dim fs As FileStream = File.OpenRead(fname)
        fs.Read(buf, 0, buf.Length)
        fs.Close()

        Return (New ASCIIEncoding).GetString(buf)
    End Function

End Class

           
       

Related examples in the same category