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. |