Imports System.Security.Cryptography
Public Class Form1
    Inherits System.Windows.Forms.Form
 
Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
    End Sub
    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu 
    ' bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
 
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(208, 56)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(192, 48)
        Me.Button1.TabIndex = 6
        Me.Button1.Text = "Button1"
 
'
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(8, 152)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(352, 20)
        Me.TextBox1.TabIndex = 15
        Me.TextBox1.Text = "test"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(8, 120)
        Me.TextBox2.Name = "TextBox3"
        Me.TextBox2.Size = New System.Drawing.Size(352, 20)
        Me.TextBox2.TabIndex = 16
        Me.TextBox2.Text = "098f6bcd4621d373cade4e832627b4f6"
 
'
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(576, 229)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
    End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        TextBox1.Text = "test"
   End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim pass As String
        pass = LTrim(TextBox1.Text)
 
        'Passwort mit sha1 hash verschlüsseln
        '  Dim ha As New SHA1Managed
        '  Dim hash() As Byte = ha.ComputeHash( 
        ' System.Text.Encoding.Default.GetBytes(u_pass))
        '  ha.Clear()
 
        Dim md5 As New MD5CryptoServiceProvider
 
        Dim bpwd() As Byte = md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes( _
          pass))
        md5.Clear()
        Me.TextBox2.Text = (Convert.ToBase64String(bpwd))
 
    End Sub
End Class