Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

MD5 Verschlüsselung aus einem String

Anleitung Entwicklung VB for Applications

Mitglied: scan5416

scan5416 (Level 1) - Jetzt verbinden

10.07.2008 um 07:17 Uhr, 14312 Aufrufe

Eine MD5 Verschlüsselung in VB.NET ist nicht so einfach wie in PHP.

Ich selber wollte vor ein paar Tagen eine solche Verschlüsselung erstellen, nachdem ich mich mit den vielen Resultaten von Google abgegeben habe und nach einigem Suchen ein Script gefunden habe welches mir zusagt, habe ich mich entschlossen schnell hier ein Tutorial zu schreiben welches dann anderen Users die Suche vereinfachen sollte.

01.
Imports System.Security.Cryptography 
02.
Imports System.Text 
03.
 
04.
Public Function MD5Cryptography(By Val strString as String) as String 
05.
    Dim md5 As New MD5CryptoServiceProvider 
06.
    Dim Data As Byte() 
07.
    Dim Result As Byte() 
08.
    Dim Res as String = "" 
09.
    Dim tmp As String = "" 
10.
 
11.
    Data = Encoding.ASCII.GetBytes(strString) 
12.
    Result = MD5.ComputeHash(Data) 
13.
 
14.
    For i as integer = 0 To Result.Length - 1 
15.
        tmp = Hex(Result(i)) 
16.
        if Len(tmp) = 1 Then 
17.
            tmp = "0" & tmp 
18.
        End If 
19.
 
20.
        Res += tmp 
21.
    Next 
22.
     
23.
    Return Res 
24.
 
25.
End Function
Damit ein MD5 Hash erstellt werden kann muss der String in Bytes umgewandelt werden
Data = Encoding.ASCII.GetBytes(strString)

Danach kann aus den Bytes der MD5 Hash erstellt werden
Result = MD5.ComputeHash(Data)

Mit der FOR Schleife wird dann als letztes noch das Resultat wieder in Zahlen und Buchstaben umgewandelt.

Ich hoffe ich konnte einigen Usern mit diesem kleinen Tutorial helfen.

Grüsse

scan
Neuester Wissensbeitrag
Ähnliche Inhalte
Exchange Server
gelöst Outlook 2016 - Verschlüsselung mit Zertifikat schlägt fehl (13)

Frage von damogless zum Thema Exchange Server ...

Debian
Zarafa smtp-auth via CRAM-MD5 (1)

Frage von zwirni zum Thema Debian ...

Multimedia
gelöst PDF: Alle Seiten entfernen, welche nicht definierten String enthalten (9)

Frage von MegaGiga zum Thema Multimedia ...

Batch & Shell
gelöst Asymetrische Datei Verschlüsselung ( Batch ) (24)

Frage von clragon zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Router & Routing
Cisco887VAW -VPN NAT-Freigabe (8)

Frage von Serial90 zum Thema Router & Routing ...