Hex zu Ascii Konverter

  • VB6

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Neptun.

    Hex zu Ascii Konverter

    Hallo,

    ich habe ein Problem. Und zwar bekomm ich das Programm das ich geschrieben habe nicht zum laufen.

    Das Programm soll Hexzeichen in Ascii Zeichen umwandlen, indem er die Windows Registrie Files (Hex- Werte) einliest und daraus eine neue Datei erstellt wo dann die Ascii Namen ausgegeben werden sollen...

    Hier der Quelltext meines Programms:
    _______________________________________________________________________________________________________________________________________

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim InputText_HEX As String
    3. Dim OutputText_ASC As String
    4. Dim TmpRegFile As String
    6. 'Quellpfad aus Registry, in dem der Office-Username steht
    7. Const SourceRegSubKey_UserInfos = "Software\Microsoft\Office\UserInfo_Temp"
    8. Const SourceRegKey_UserNameHEX = "UserNameHEX"
    9. Const SourceRegKey_UserEnvironment = "UserEnvironment"
    11. 'Zielpfad in Registry, in dem der Office-Username steht
    12. Const DestinationRegSubKey_UserName = "Software\Microsoft\Office\UserInfo_Temp"
    13. Const DestinationRegKeyName = "UserNameASC"
    15. 'Funktion Hex to String
    16. Private Function Convert2String(ByVal Username As String) As String
    17. Dim x As Integer 'Variable wird deklariert
    19. For x = 1 To Len(Username) Step 6 'Nach 6 Zeichen, wird ein neues Ascii- Zeichen ausgegeben (wegen "00,")
    20. Convert2String = Convert2String & Chr$(CLng("&H" & Mid$(Username, x, 2))) 'ToString Funktion
    22. Next
    23. Exit Function
    24. End Function
    26. 'tmp. Reg-File erzeugen
    27. Private Function CreateRegFile()
    28. On Error Resume Next
    29. Dim RegFile As Integer
    30. RegFile = FreeFile
    31. Open TmpRegFile For Output As #RegFile
    32. Print #RegFile, "Windows Registry Editor Version 5.00"
    33. Print #RegFile, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\UserInfo]"
    34. Print #RegFile, ""
    35. Print #RegFile, """Username""=hex:" & OutputText_ASC
    36. Close #RegFile
    37. End Function
    39. Private Sub cmdTranslate_Click()
    40. On Error Resume Next
    41. InputText_HEX = ""
    42. OutputText_ASC = ""
    44. lblInfo.Caption = "- Microsoft FullUsername auslesen aus:" & vbCrLf & _
    45. " 'HKCU\Software\Microsoft\Office\10.0\Common\UserInfo\UserNameASCII'" & vbCrLf & vbCrLf & _
    46. "- Usernamen in Registry entsprechenden ASC-Wert umwandeln" & vbCrLf & vbCrLf & _
    47. "- Tmp. Reg-File anlegen: 'C:\UserName.reg' und ASC-Wert darin speichern"
    49. 'MS.Fullname aus Reg einlesen
    50. InputText_HEX = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserNameHEX)
    51. 'Tmp. Regfile Pfad aus Registry einlesen
    52. TmpRegFile = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserEnvironment)
    53. 'Ueberpruefung ob letztes Zeichen ein '\' ist
    54. If Right(TmpRegFile, 1) <> "\" Then TmpRegFile = TmpRegFile & "\"
    55. TmpRegFile = TmpRegFile & "UserInfos.reg"
    56. 'Falls KEIN Username hinterlegt ist, wird 'Meffert AG' eingetragen
    57. If InputText_HEX = "" Then InputText_HEX = "4D,00,65,00,66,00,66,00,65,00,72,00,74,00,20,00,41,00,47"
    58. 'Username in Registry entsprechenden HEX-Wert umwandeln
    59. OutputText_ASC = Convert2String(InputText_HEX) & "00,00"
    60. 'tmp. Reg-File mit HEX-Wert erzeugen
    61. CreateRegFile
    62. 'erzeugten HEX-Wert in tmp. Reg-Wert schreiben
    63. Reg_SetString HKEY_CURRENT_USER, DestinationRegSubKey_UserName, DestinationRegKeyName, OutputText_ASC
    64. End Sub
    67. Private Sub Form_Load()
    68. cmdTranslate_Click
    69. End
    70. End Sub

    ____________________________________________________________________________________________________________________________________


    Da ich nur ein Laie bin, hoffe hier kann und will mir jemand helfe!!!

    VIELEN DANK


    Edit by LaMa5:
    - VB-Tag hinzugefügt; Beim nächsten Mal bitte selbst dran denken!!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

    ahoi,

    wo liegt denn das problem startet das programm nicht, liest es nix aus werden die werte nicht richtig umgewandelet .... ????
    außerdem könntest du die masse an code vielleicht in codetags verpacken bzw nur den relevanten code posten
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    mh nun mit vb6 kann ich es leider nicht testen aber kann es sein das das evtl als string übergeben werden muss ??
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    wenn du die funktion aufrufst kommt denn bei dir eine toolbox die dir vielleicht die übergebbaren parameter anzeigt ??
    vb6 is bei mir ne weile her
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    Das ist meine Signatur und sie wird wunderbar sein!

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Mono“ ()

    is das eigentlich ne function die dir von vb6 zur verfügung gestellt wird oder eine eigene ?
    Grüße Manu

    Was Gott dem Menschen erspart hat, kann der Computer.
    Billy ©, (*1932), Schweizer Aphoristiker
    Quelle: www.Aphorismen.de

    erstmal danke für die schnellen antworten, aber ich kann mit den links nicht viel anfangen!!!weil ich nicht viel ahnung vom vb habe...

    das Programm habe ich von einem vorherrigen Programm umgeändert. Das vorherige Programm hat die Daten nur genau andersrum konvertiert!

    hier mal das original Programm:
    _____________________________________________________________________________________________________

    Visual Basic-Quellcode

    1. Option Explicit
    2. Dim InputText_ASC As String
    3. Dim OutputText_HEX As String
    4. Dim TmpRegFile As String
    6. 'Quellpfad aus Registry, in dem der Office-Username steht
    7. Const SourceRegSubKey_UserInfos = "Software\Microsoft\Office\10.0\Common\UserInfo"
    8. Const SourceRegKey_UserNameASCII = "UserNameASCII"
    9. Const SourceRegKey_UserEnvironment = "UserEnvironment"
    11. 'Zielpfad in Registry, in dem der Office-Username steht
    12. Const DestinationRegSubKey_UserName = "Software\Microsoft\Office\10.0\Common\UserInfo"
    13. Const DestinationRegKeyName = "UserNameHEX"
    15. 'ASCII in HEX umwandeln
    16. Private Function Convert2HEX(ByVal Username As String) As String
    17. On Error Resume Next
    18. Dim x As Integer
    19. For x = 1 To Len(Username)
    20. Convert2HEX = Convert2HEX & Hex(Asc(Mid$(Username, x, 1))) & ",00,"
    21. Next
    22. End Function
    24. 'tmp. Reg-File erzeugen
    25. Private Function CreateRegFile()
    26. On Error Resume Next
    27. Dim RegFile As Integer
    28. RegFile = FreeFile
    29. Open TmpRegFile For Output As #RegFile
    30. Print #RegFile, "Windows Registry Editor Version 5.00"
    31. Print #RegFile, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\UserInfo]"
    32. Print #RegFile, ""
    33. Print #RegFile, """Username""=hex:" & OutputText_HEX
    34. Close #RegFile
    35. End Function
    38. Private Sub cmdTranslate_Click()
    39. On Error Resume Next
    40. InputText_ASC = ""
    41. OutputText_HEX = ""
    43. 'MS.Fullname aus Reg einlesen
    44. InputText_ASC = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserNameASCII)
    45. 'Tmp. Regfile Pfad aus Registry einlesen
    46. TmpRegFile = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserEnvironment) & "UserInfos.reg"
    47. 'Falls KEIN Username hinterlegt ist, wird 'Meffert AG' eingetragen
    48. If InputText_ASC = "" Then InputText_ASC = "Meffert AG"
    49. 'Username in Registry entsprechenden HEX-Wert umwandeln
    50. OutputText_HEX = Convert2HEX(InputText_ASC) & "00,00"
    51. 'tmp. Reg-File mit HEX-Wert erzeugen
    52. CreateRegFile
    54. 'RegSetValue HKEY_CURRENT_USER, DestinationRegSubKey_UserName, DestinationRegKeyName, REG_BINARY, OutputText_HEX, Len(OutputText_HEX)
    55. End Sub
    58. Private Sub Form_Load()
    59. On Error Resume Next
    60. InputText_ASC = ""
    61. OutputText_HEX = ""
    63. lblInfo.Caption = "- Microsoft FullUsername auslesen aus:" & vbCrLf & _
    64. " 'HKCU\Software\Microsoft\Office\10.0\Common\UserInfo\UserNameASCII'" & vbCrLf & vbCrLf & _
    65. "- Usernamen in Registry entsprechenden HEX-Wert umwandeln" & vbCrLf & vbCrLf & _
    66. "- Tmp. Reg-File anlegen: 'C:\UserName.reg' und Hex-Wert darin speichern"
    68. 'MS.Fullname aus Reg einlesen
    69. InputText_ASC = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserNameASCII)
    70. 'Tmp. Regfile Pfad aus Registry einlesen
    71. TmpRegFile = Reg_GetValue(HKEY_CURRENT_USER, SourceRegSubKey_UserInfos, SourceRegKey_UserEnvironment)
    72. 'Ueberpruefung ob letztes Zeichen ein '\' ist
    73. If Right(TmpRegFile, 1) <> "\" Then TmpRegFile = TmpRegFile & "\"
    74. TmpRegFile = TmpRegFile & "UserInfos.reg"
    75. 'Falls KEIN Username hinterlegt ist, wird 'Meffert AG' eingetragen
    76. If InputText_ASC = "" Then InputText_ASC = "Meffert AG"
    77. 'Username in Registry entsprechenden HEX-Wert umwandeln
    78. OutputText_HEX = Convert2HEX(InputText_ASC) & "00,00"
    79. 'tmp. Reg-File mit HEX-Wert erzeugen
    80. CreateRegFile
    81. End
    82. End Sub



    Edit by LaMa5:
    - VB-Tag hinzugefügt; Beim nächsten Mal bitte selbst dran denken!!
    _____________________________________________________________________________________________________

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()