hhunderter
Erfahrenes Mitglied
Tach wiedermal
ich hatte hir im forum nach meiner lösung , etwas zu verschlussen , geschaut und auch was gefunden .
1. Prob. : Dieser code unterscheidet nicht , was groß geschrieben und was klein geschrieben wurde (er setzt alles groß).
zb.
plz help
mfg : hhunderter
ich hatte hir im forum nach meiner lösung , etwas zu verschlussen , geschaut und auch was gefunden .
1. Prob. : Dieser code unterscheidet nicht , was groß geschrieben und was klein geschrieben wurde (er setzt alles groß).
zb.
- Hallo
- LEPPS
- HALLO
Code:
Option Explicit
Dim shift As Integer
Private Sub Command1_Click()
Dim strtext As String
Dim strchars() As String
Dim tempstr As String
Dim i As Integer
shift = 30
If Text1.text <> "" Then
strtext = Text1.text
'Debug.Print strtext(1)
ReDim strchars(Len(strtext))
For i = 1 To Len(strtext)
strchars(i) = UCase(Mid(strtext, i, 1))
Next i
For i = 1 To UBound(strchars)
tempstr = tempstr & Chr((((((Asc(strchars(i)) Mod 65) + 1) + (shift Mod 26)) Mod 26) + 64))
Next i
Text2.text = tempstr
End If
End Sub
Private Sub Command2_Click()
Dim strtext As String
Dim strchars() As String
Dim tempstr As String
Dim i As Integer
If Text2.text <> "" Then
strtext = Text2.text
ReDim strchars(Len(strtext))
For i = 1 To Len(strtext)
strchars(i) = UCase(Mid(strtext, i, 1))
Next i
For i = 1 To UBound(strchars)
tempstr = tempstr & Chr((Asc(strchars(i)) - (shift Mod 26)))
Next i
Text3.text = tempstr
End If
End Sub
plz help
mfg : hhunderter