Top-Themen

Aktuelle Themen (A bis Z)

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, 14576 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
Ähnliche Inhalte
Verschlüsselung & Zertifikate
MD5-signierte Java-Anwendungen werden blockiert (IPMI etc.)
Tipp von C.R.S.Verschlüsselung & Zertifikate

Beginning with the April 2017 Critical Patch Update, JAR files signed using MD5 will no longer be considered as ...

Humor (lol)
Politisches Statement im Browser-Agent-String
Information von StefanKittelHumor (lol)5 Kommentare

Moin, das hier habe ich heute Morgen in einem Protokoll gefunden. Auf was für Ideen die Leute kommen Stefan

Verschlüsselung & Zertifikate
USB-Stick-Verschlüsselung im Unternehmen - leicht gemacht
Tipp von DerWoWussteVerschlüsselung & Zertifikate17 Kommentare

Mir ist vor kurzem aufgefallen, dass Bitlocker in Win8/Server 2012- (oder höher) Umgebungen ein sehr praktisches Feature hat, das ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Necur-Botnet soll Erpressungstrojaner Scarab massenhaft verbreiten

Information von BassFishFox vor 2 StundenErkennung und -Abwehr

12,5 Millionen Spam-Mails aus einem Bot-Netz mit 6 Millionen Computern? Eigentlich eine schwache Leistung. Die Erpresser setzen dabei auf ...

Microsoft

Nadeldrucker-Problem unter Windows - Microsoft liefert Updates

Information von BassFishFox vor 2 StundenMicrosoft

Hat ja nicht lange gedauert. Nachdem die November-Updates für Windows 7, 8.1 und 10 zahlreiche Nadeldrucker lahmgelegt hatten, stellt ...

Linux

Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde

Information von Frank vor 10 StundenLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 1 TagBatch & Shell9 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Heiß diskutierte Inhalte
Linux
Limux-Ende in München: Wie ein Linux Projekt unter Ausschluss der Öffentlichkeit zerstört wurde
Information von FrankLinux14 Kommentare

Mein persönlicher Kommentar zum Thema "Limux-Ende". Die SPD-Politikerin Anne Hübner hat die Richtung von München ganz klar definiert: "Wir ...

Router & Routing
Zwei Netzwerke erstellen
Frage von bunteblumeRouter & Routing14 Kommentare

Hallo Zusammen, Ich möchte gerne ein backup von einem bestimmten Folder welcher auf dem Server regelmässig synchronisiert wird auf ...

Off Topic
Fachkräftemangel in Deutschland? - Talentschmiede schreibt alle 2 Tage die gleichen Stellen aus
Frage von Penny.CilinOff Topic12 Kommentare

Hallo, haben wir in Deutschland Fachkräftemangel? Die Talentschmiede schreibt gefühlt alle zwei Tage dieselben Stellen aus. Und das schon ...

Windows Server
Kann man im KMS nachschauen , wieviele Clients den Key in Anspruch genommen haben
gelöst Frage von rainergugusWindows Server12 Kommentare

Hallo, wir haben einen KMS Windows 10 Key. Dieser ist ja W7 kompatibel. Aber unser Windows 7 Pool registriert ...