Ver- und Entschlüsselung

    • VB6

      Ver- und Entschlüsselung

      Um eine Datei zu verschlüsseln dann schau hier rein vbarchiv.net/download/download_detail.php?pid=362

      Text in TextBox Ver/entschlüsseln

      Visual Basic-Quellcode

      1. Public Function EncodeString(ByVal strToEncode As String, _
      2. ByVal strPassword As String) As String
      4. Dim strResult As String
      5. Dim i As Long
      6. Dim cfc() As Integer
      8. ReDim cfc(1 To Len(strPassword))
      10. For i = 1 To UBound(cfc)
      11. cfc(i) = Asc(Right(strPassword, _
      12. Len(strPassword) - i + 1))
      13. Next i
      15. For i = 1 To Len(strToEncode)
      16. strResult = strResult & _
      17. Chr(addToIndex(Asc(Right(strToEncode, _
      18. Len(strToEncode) - i + 1)), VirtPos(i, cfc)))
      19. Next i
      21. EncodeString = strResult
      22. End Function
      23. ' Text in Verbindung mit einem Passwort entschlüsseln
      24. Public Function DecodeString(ByVal strToDecode As String, _
      25. ByVal strPassword As String) As String
      27. Dim strResult As String
      28. Dim i As Long
      29. Dim cfc() As Integer
      31. ReDim cfc(1 To Len(strPassword))
      32. ReDim ttc(1 To Len(strToDecode))
      34. For i = 1 To UBound(cfc)
      35. cfc(i) = Asc(Right(strPassword, _
      36. Len(strPassword) - i + 1))
      37. Next i
      39. For i = 1 To Len(strToDecode)
      40. strResult = strResult & _
      41. Chr(GetOfIndex(Asc(Right(strToDecode, _
      42. Len(strToDecode) - i + 1)), VirtPos(i, cfc)))
      43. Next i
      45. DecodeString = strResult
      46. End Function
      47. ' Hilfsfunktionen
      48. Private Function VirtPos(i As Long, _
      49. a() As Integer) As Integer
      51. If i > UBound(a) Then
      52. VirtPos = VirtPos(i - UBound(a), a)
      53. Else
      54. VirtPos = a(i)
      55. End If
      56. End Function
      58. Private Function addToIndex(i As Integer, _
      59. j As Integer) As Integer
      61. If i + j > 255 Then
      62. addToIndex = i + j - 255
      63. Else
      64. addToIndex = i + j
      65. End If
      66. End Function
      68. Private Function GetOfIndex(i As Integer, _
      69. j As Integer) As Integer
      71. If i - j < 0 Then
      72. GetOfIndex = i - j + 255
      73. Else
      74. GetOfIndex = i - j
      75. End If
      76. End Function
      77. ____________________________________________________________
      79. rivate Sub cmdEncode_Click()
      80. ' Verschlüsseln
      81. txtResult.Text = EncodeString(txtToEncode.Text, _
      82. txtPassword.Text)
      83. End Sub
      85. Private Sub cmdDecode_Click()
      86. ' Entschlüsseln
      87. txtResult.Text = DecodeString(txtResult.Text, _
      88. txtPassword.Text)


      4 Datei Eigenschaften auslesen

      Visual Basic-Quellcode

      1. ' zunächst die benötigten API-Deklarationen Private Declare Function ShellExecuteEx Lib "shell32.dll" _ (LPSHELLEXECUTEINFO As SHELLEXECUTEINFO) As Long Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hWnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Private Const SEE_MASK_FLAG_NO_UI = &H400 Private Const SEE_MASK_INVOKEIDLIST = &HC Private Const SEE_MASK_NOCLOSEPROCESS = &H40 ' Datei-Eigenschaften Dialog anzeigen Public Sub ShowFileInfoDlg(ByVal hWnd As Long, _ ByVal sFilename As String) Dim FILEINFO As SHELLEXECUTEINFO With FILEINFO .cbSize = Len(FILEINFO) .fMask = SEE_MASK_FLAG_NO_UI Or _ SEE_MASK_INVOKEIDLIST Or _ SEE_MASK_NOCLOSEPROCESS .hWnd = hWnd .lpVerb = "properties" .lpFile = sFileName End With Call ShellExecuteEx(FILEINFO) End Sub

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

    Facebook
    Telefonspende