Mega Code Archive
Generate DSA Key and value
<![CDATA[
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
]]>