Spalte von DataRow zu MD5 Hash.

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Spalte von DataRow zu MD5 Hash.

    Guten Tag allerseits,

    Ich hab ne Datenquelle namens XPortDataSet.

    VB.NET-Quellcode

    1. 'TODO: Diese Codezeile lädt Daten in die Tabelle "XPortDataSet.Kundenstamm". Sie können sie bei Bedarf verschieben oder entfernen.
    2. Me.KundenstammTableAdapter.Fill(Me.XPortDataSet.Kundenstamm)
    3. 'TODO: Diese Codezeile lädt Daten in die Tabelle "XPortDataSet.Artikelstamm". Sie können sie bei Bedarf verschieben oder entfernen.
    4. Me.ArtikelstammTableAdapter.Fill(Me.XPortDataSet.Artikelstamm)


    Diese Datenquelle enthält 2 Tabellen, namens Artikelstamm & Kundenstamm.


    Hab 2 Funktionen geschrieben, die den Artikelstamm und Kundenstamm exportieren im
    Form_Load Event lass ich diese aufrufen.

    VB.NET-Quellcode

    1. Function export(ByVal DT As XPortDataSet, ByVal Fullpath As String, ByVal Delimiter As String)
    2. Dim intI, intC As Integer
    3. Dim strValue As String
    4. Dim strRowValue As String
    5. Dim enc As System.Text.Encoding
    6. Dim Qualifier As String = "~"
    7. Dim row As DataRow
    9. enc = System.Text.Encoding.GetEncoding(1252)
    11. Dim swriter As New StreamWriter(Fullpath, False, enc)
    13. intC = DT.Artikelstamm.Columns.Count()
    15. For Each row In DT.Artikelstamm.Rows
    16. strRowValue = ""
    17. strValue = ""
    19. For intI = 0 To intC - 1
    20. strValue = row.Item(intI).ToString
    21. strValue = strValue.Replace(Qualifier, Qualifier & Qualifier)
    23. strRowValue = strRowValue & Qualifier & strValue & Qualifier
    25. strRowValue = strRowValue.Replace("~~~", "~")
    26. strRowValue = strRowValue.TrimEnd("~")
    27. strRowValue = strRowValue.Replace("~~", "~")
    30. If intI < intC - 1 Then
    31. strRowValue = strRowValue & Qualifier
    32. End If
    33. Next
    36. swriter.Write(strRowValue.TrimStart(strRowValue, " "))
    39. swriter.ToString()
    42. Next
    43. swriter.Close()
    44. End Function


    Ich möchte jetzt eine htpasswd generieren, aus der Tabelle "Kundenstamm" die Spalte "Postleitzahl" sollen die User sein und die Spalte "Kundennummer" das Passwort (md5 bezüglich HTPASSWD).

    Ich hab momentan keine Idee wie ich oben bei dem Code richtig einsteigen kann um das zu realisieren.

    MD5 ist ganz einfach. Siehe hierzu folgenden Code:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.Text
    4. Module Module1
    6. Sub Main()
    7. Console.WriteLine(MD5CON("Andreas"))
    8. Console.ReadKey()
    9. End Sub
    11. Private Function MD5CON(ByVal ConvertedHash As String) As String
    12. Dim Res As String = ""
    13. Try
    14. Dim MD5 As New MD5CryptoServiceProvider
    15. Dim Data As Byte()
    16. Dim Result As Byte()
    17. Dim Tmp As String = ""
    19. Data = Encoding.ASCII.GetBytes(ConvertedHash)
    20. Result = MD5.ComputeHash(Data)
    21. For i As Integer = 0 To Result.Length - 1
    22. Tmp = Hex(Result(i))
    23. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    24. Res += Tmp
    25. Next
    26. Catch ex As Exception
    27. MsgBox("Hash konne nicht erstellt werden.", MsgBoxStyle.Critical)
    28. Res = ""
    29. End Try
    31. Return Res
    32. End Function
    34. End Module


    MFG Andi2572

    Andi2572 schrieb:

    C&P ?


    Ehm, nein.

    Dann würde es nicht funktionieren.

    @TE:

    Bitte schau es dir genau an, dann solltest du von selber drauf kommen... du hast eine Eingabe (Hier Koonsole) und du hast eine Funktion (die du so übernehmen kannst)

    Also die Funktion kopieren, in dein Objekt rein pasten wo du drin arbeitest, dann (Form, Konsole, keine Ahnung) irgendwie die Eingabe realisieren und dann die Funktion aufrufen.

    Ansonsten einfach ma schaun was so im Code steht damit du es auch verstehst.

    md5
    datarow

    Auf ein Item einer DataRow greifst du folgendermasen zu:

    VB.NET-Quellcode

    1. Dim value As MyType = TryCast(myDataRow.Item("ColumnName"), MyType)
    2. If value = Nothing Then
    3. ' do something
    4. End If


    In einer DataRow werden die Sache als String gespeichert (glaube ich), du musst sie daher Konvertieren.
    TryCast macht dass, liefert aber "Nothing" zurück, wenn es nicht geht (es wird keine Exception geworfen).

    Casting: Welches Benutze ich?


    Zeitmessung

    Jede Variante wurde mit jeweils 1000 Testdurchläufen getestet.

    (Typumewandlungs-Art
    Zeit ohne Fehler
    Zeit mit Fehler)

    DirectCast
    0.0019 ms
    2956.5607 ms

    TryCast
    0.0029 ms
    0.0056 ms

    CType
    0.0019 ms
    2897.9826 ms

    (Hier sieht man auch gut was ein Try Catch kostet... 3 Sekunden für Fehler via Try Catch abfangen... => Bei Trycast benötigst du kein Try Catch, da du einfach auf Nothing prüfst.

    Der TE verwendet ein typisiertes Dataset - da braucht er garnet Casten.

    Nur seine Frage versteh ich ühaupt net
    Ich möchte jetzt eine htpasswd generieren, aus der Tabelle "Kundenstamm" die Spalte "Postleitzahl" sollen die User sein und die Spalte "Kundennummer" das Passwort (md5 bezüglich HTPASSWD).

    er will ein passwort generieren - jo, kannerja machen: wie wärs mit "ölksdjfivjias83"?
    Aus der Tabelle Kundenstamm die Postleitzahl sollen User sein? was?? Die postleitzahlen sind aber doch schon Postleitzahlen.
    Ah - und die Kundennummer ist das Passwort? wozu dann aber noch eines generieren?

    was ist ein "htPasswd", und was bedeutet "md5 bezüglich HTPASSWD"?