- #1
A
Alexander16
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 26.08.2002
- Beiträge
- 473
- Reaktionspunkte
- 0
Hi
Ich habe ein Verschlüsselungsprogramm gebastelt.
Nun will ich dem Programm beibringen das bei der Verschlüsselung die Zeilenumbrüche erhalten bleiben.
Vielen Dank schon mal ;D
Hier der Code:
---------------------------------------------------------------------------------
Option Explicit
Dim Anzahl
Dim Zeichen
Dim i
Private Sub cmd_Beenden_Click()
Unload Me
End
End Sub
Private Sub cmd_Ent_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0
If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl
For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) - Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If
End Sub
Private Sub cmd_Ver_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0
If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl
For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) + Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If
End Sub
------------------------------------------------------------------
Ich habe ein Verschlüsselungsprogramm gebastelt.
Nun will ich dem Programm beibringen das bei der Verschlüsselung die Zeilenumbrüche erhalten bleiben.
Vielen Dank schon mal ;D
Hier der Code:
---------------------------------------------------------------------------------
Option Explicit
Dim Anzahl
Dim Zeichen
Dim i
Private Sub cmd_Beenden_Click()
Unload Me
End
End Sub
Private Sub cmd_Ent_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0
If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl
For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) - Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If
End Sub
Private Sub cmd_Ver_Click()
Anzahl =
Zeichen =
i =
txt_Text2.Text =
Status = 0
If txt_Text.Text <> And txt_Passwort.Text <> Then
Anzahl =
Anzahl = Len(txt_Text.Text)
Status.Max = Anzahl
For i = 1 To Anzahl
Zeichen = Mid(txt_Text.Text, i, 1)
txt_Text2.Text = txt_Text2.Text & Chr$(Asc(Zeichen) + Val(txt_Passwort.Text))
Status = Status + 1
Next i
End If
End Sub
------------------------------------------------------------------