TText SICHER verschlüsseln/entschlüsseln

  • VB6

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von VBnator.

    TText SICHER verschlüsseln/entschlüsseln

    Hallo,

    ich möchte einen Text aus einer TextBox sicher verschlüsseln und in einer Datei abspeichen. Diese Datei soll man wieder laden können und den entschlüsselten Text in ein Label laden. Wenn man die Datei in einem Editor an schaut soll z.B. statt Hallo das irgend was sinnloses stehen.



    ES SOLL EINFACH SICHER SEIN

    Danke schonmal im vorraus!!!!!

    Die SuFu habe ich benutzt. Find ne Menge. Weiß aben nit wie ich das anwenden soll und zum Teil streicht der manches rot an. :(

    Kann mir jeman passende Quelltexte schreiben und ungefär so hinschreiben:

    Verschlüsseln:

    Visual Basic-Quellcode

    1. Hier soll ein Quelltext hin


    Entschlüsseln:

    Visual Basic-Quellcode

    1. Hier soll ein Quelltext hin


    Bitte. Es ist dringend. Wäre sehr dankbar.

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

    wie sicher soll die verschlüsslung denn sein?
    Wenn das einfach nich jeder lesen soll guck mal hier:
    Filtern
    Edit: Ach ja, ist zwar für VB05, aber ich denke, das bekommst du noch umgeschrieben

    Hier eine lösung.

    Benötigt ein Modul (Name:modCryptText) ein Klassenmodul(Name:clsCryptText) eine TextBox zur eingabe (txtText2) ein Label zur ausgabe (lblLabel2)

    Verschlüsseln:

    Visual Basic-Quellcode

    1. Dim t As String
    2. t = EnCrypt(txtText2.Text, H3SDFSDSDSaa1)
    4. Open "C:\verschlüsselt.txt" For Output As #110
    5. Print #110, (t)
    6. Close #110


    Entschlüsseln:

    Visual Basic-Quellcode

    1. Dim t As String
    2. Open "C:\verschlüsselt.txt" For Input As #100
    3. Input #100, t
    4. If Crypt = True Then
    5. lblLabel2.Caption = EnCrypt(t, H3SDFSDSDSaa1)
    6. Else
    7. lblLabel2.Caption = DeCrypt(t, H3SDFSDSDSaa1)
    8. End If
    9. Close #100


    Modul1:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Global Crypt As Boolean
    3. Function EnCrypt(eText As String, eKey As String) As String
    4. Dim cipherTest As New clsCryptText
    6. cipherTest.KeyString = eKey
    7. cipherTest.Text = eText
    8. cipherTest.CryptMitXOR
    9. cipherTest.Stretch
    10. EnCrypt = cipherTest.Text
    11. End Function
    12. Function DeCrypt(dText As String, dKey As String) As String
    13. Dim cipherTest As New clsCryptText
    15. cipherTest.KeyString = dKey
    16. cipherTest.Text = dText
    17. cipherTest.DoCd
    18. cipherTest.CryptMitXOR
    19. DeCrypt = cipherTest.Text
    20. End Function


    Klassenmodul1:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private mstrKey As String
    3. Private mstrText As String
    4. Public Property Let KeyString(strKey As String)
    5. mstrKey = strKey
    6. Initialize
    7. End Property
    8. Public Property Let Text(strText As String)
    9. mstrText = strText
    10. End Property
    11. Public Property Get Text() As String
    12. Text = mstrText
    13. End Property
    14. Public Sub CryptMitXOR()
    15. Dim lngC As Long
    16. Dim intB As Long
    17. Dim lngN As Long
    18. On Error Resume Next
    19. For lngN = 1 To Len(mstrText)
    20. lngC = Asc(Mid(mstrText, lngN, 1))
    21. intB = Int(Rnd * 256)
    22. Mid(mstrText, lngN, 1) = Chr(lngC Xor intB)
    23. Next lngN
    24. End Sub
    25. Public Sub Stretch()
    26. Dim lngC As Long
    27. Dim lngN As Long
    28. Dim lngJ As Long
    29. Dim lngK As Long
    30. Dim lngA As Long
    31. Dim strB As String
    33. On Error Resume Next
    34. lngA = Len(mstrText)
    35. strB = Space(lngA + (lngA + 2) \ 3)
    37. For lngN = 1 To lngA
    38. lngC = Asc(Mid(mstrText, lngN, 1))
    39. lngJ = lngJ + 1
    40. Mid(strB, lngJ, 1) = Chr((lngC And 63) + 59)
    41. Select Case lngN Mod 3
    42. Case 1
    43. lngK = lngK Or ((lngC \ 64) * 16)
    44. Case 2
    45. lngK = lngK Or ((lngC \ 64) * 4)
    46. Case 0
    47. lngK = lngK Or (lngC \ 64)
    48. lngJ = lngJ + 1
    49. Mid(strB, lngJ, 1) = Chr(lngK + 59)
    50. lngK = 0
    51. End Select
    52. Next lngN
    54. If lngA Mod 3 Then
    55. lngJ = lngJ + 1
    56. Mid(strB, lngJ, 1) = Chr(lngK + 59)
    57. End If
    59. mstrText = strB
    60. End Sub
    61. Public Sub DoCd()
    62. Dim lngC As Long
    63. Dim lngD As Long
    64. Dim lngE As Long
    65. Dim lngA As Long
    66. Dim lngB As Long
    67. Dim lngN As Long
    68. Dim lngJ As Long
    69. Dim lngK As Long
    70. Dim strB As String
    71. On Error Resume Next
    72. lngA = Len(mstrText)
    73. lngB = lngA - 1 - (lngA - 1) \ 4
    74. strB = Space(lngB)
    76. For lngN = 1 To lngB
    77. lngJ = lngJ + 1
    78. lngC = Asc(Mid(mstrText, lngJ, 1)) - 59
    79. Select Case lngN Mod 3
    80. Case 1
    81. lngK = lngK + 4
    82. If lngK > lngA Then lngK = lngA
    83. lngE = Asc(Mid(mstrText, lngK, 1)) - 59
    84. lngD = ((lngE \ 16) And 3) * 64
    85. Case 2
    86. lngD = ((lngE \ 4) And 3) * 64
    87. Case 0
    88. lngD = (lngE And 3) * 64
    89. lngJ = lngJ + 1
    90. End Select
    91. Mid(strB, lngN, 1) = Chr(lngC Or lngD)
    92. Next lngN
    94. mstrText = strB
    95. End Sub
    96. Private Sub Initialize()
    97. Dim lngN As Long
    99. Randomize Rnd(-1)
    100. For lngN = 1 To Len(mstrKey)
    101. Randomize Rnd(-Rnd * Asc(Mid(mstrKey, lngN, 1)))
    102. Next lngN
    103. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VBnator“ ()

Facebook
Telefonspende