'Beispiel : Verwendung des ActiveX - Servers EncryptDecrypt.DLL 2. (edtEncryptOnStream) 'Hinweis : Erstellen Sie eine Referenz zu : Encrypt / Decrypt DLL Private Sub Command1_Click(Index As Integer) Select Case Index Case Is = 0: sInitDecryptingEncrypting Case Is = 1: Unload Me End Select End Sub Private Sub sInitDecryptingEncrypting() Dim de As DecryptEncrypt.clsCrypto On Error GoTo ErrHandle Form1.MousePointer = 11 Set de = New DecryptEncrypt.clsCrypto Text3 = vbNullString: Text4 = vbNullString Text3 = de.fEncryptingString(Text1, Text2, True, edtEncryptOnStream) Text4 = de.fDecryptingString(Text3, Text2, True, edtEncryptOnStream) Set de = Nothing Me.MousePointer = 0 Exit Sub ErrHandle: Me.MousePointer = vbDefault MsgBox "Die Felder : 'Zu verluesselnder Text' oder 'Key' wurden nicht ausgefuellt !", _ vbOKOnly + vbCritical, _ "Fehler in den Eingabefeldern..." Exit Sub End Sub Private Sub sTestString() Dim s As String s = s + "Dies ist ein Beispielstext der hier verschluesselt und entschluesselt wird." & vbCrLf s = s + "Dies ist ein Beispielstext der hier verschluesselt und entschluesselt wird." & vbCrLf s = s + "Downloaded from : www.Visual-Basic5.de" Text1 = s End Sub Private Sub Form_Load() sTestString Text2 = "Eingabe eines Strings der als Schluessel dienen soll" End Sub Private Sub Text2_Click() Text2.SelStart = 0 Text2.SelLength = Len(Text2) End Sub