Passwort Verschlüsselung klappt nicht mit Umlauten

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi, ich benutze folgenden Code um ein Passwort verschlüsselt abzuspeichern.
Nur kommt diese Routine mit Umlauten nicht klar. Was müßte man da ändern ?
Die Umlaute (äöü und ß werden z.b. als ? abgelegt)

Imports System.Security.Cryptography
Imports System.Text

Public Class cls_Crypt
Private Key As String = "Test4711"
Private Des As New TripleDESCryptoServiceProvider
Private HashMD5 As New MD5CryptoServiceProvider


Public Function DeCrypt(ByVal SourceText As String) As String
Des.Key = HashMD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(Key))
Des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = Des.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(SourceText)
Return ASCIIEncoding.ASCII.GetString _
(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
End Function


Public Function Crypt(ByVal SourceText As String) As String
Des.Key = HashMD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(Key))
Des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = Des.CreateEncryptor()
Dim MyASCIIEncoding As New ASCIIEncoding
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(SourceText)
Return Convert.ToBase64String _
(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
End Function


Public Shared Function GenerateHash(ByVal SourceText As String) As
String
Dim Ue As New UnicodeEncoding
Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
Dim Md5 As New MD5CryptoServiceProvider
Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
Return Convert.ToBase64String(ByteHash)
End Function


End Class


.

Relevant Pages

  • Re: Incompatibility between Access 2003 and Access 2002
    ... Private WithEvents mlst As ListBox ... Private mot As ObjectType ... Public DisplayField As String ... Dim prm As DAO.Parameter ...
    (microsoft.public.access.modulesdaovba)
  • Re: FileSystemWatcher advice required please
    ... Private ArchiveImport As String ... Private FilesToProcess As ProcessFiles ... Public Sub Main ... Dim NoVersion As New Collection ...
    (microsoft.public.dotnet.framework)
  • Re: Is there a way to prevent a RichTextBox from scrolling?
    ... Private _isRegex As Boolean ... Public Sub New(ByVal thispattern As String, ... Dim entry As tDict ...
    (microsoft.public.dotnet.framework.windowsforms.controls)
  • MAPI Emails from Access
    ... I realize this code is quite long, but could someone take a look at the sub ... Private Const mcERR_DOH = vbObjectError + 10000 ... Private mstStatus As String ... Dim db As Database, rs As Recordset ...
    (microsoft.public.access.formscoding)
  • Re: vb6 print dialog problem
    ... Private Const HWND_BROADCAST = &HFFFF ... dmDeviceName As String * CCHDEVICENAME ... Private Declare Function WriteProfileString _ ... Dim sTemp As String * 512, ...
    (comp.lang.basic.visual.misc)