010
19.03.2006, 12:16 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)
|
Ja eben 
Das ist das Problem ja...
Was zur Hölle ist iterativ? 
| Bearbeitung: |
Sooo ich habs
|
| Visual Basic: |
Private Function Ersetzen()
Const cstrSource As String = _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
"abcdefghijklmnopqrstuvwxyz"
Const cstrDest As String = _
"EPSTIWKNUVGCLRYBXHMDOFZQAJ" & _
"epstiwknuvgclrybxhmdofzqaj"
Dim i As Long
Dim s As String
Dim b() As Byte
s = txtVorher.Text
ReDim b(1 To Len(s))
For i = 1 To Len(s)
b(i) = Asc(Mid$(cstrDest, InStr(1, cstrSource, Mid$(s, i, 1)), 1))
Next i
s = StrConv(b, vbUnicode)
txtNachher.Text = s
End Function
Private Sub cmdVerschluesseln_Click()
Call Ersetzen
End Sub
|
Mfg. Audron-AT-www, sXene Software
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
Dieser Post wurde am 19.03.2006 um 12:36 Uhr von Audron-AT-www editiert. |
