Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Buchstaben ersetzten

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: [ 1 ] > 2 <
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.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
011
19.03.2006, 13:37 Uhr
FloSoft
Medialer Over-Flow
(Administrator)



Visual Basic:
For i = 1 To Len(s)
...



das ist iterativ
--
class God : public ChuckNorris { };
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
012
19.03.2006, 13:59 Uhr
Uwe
C/C++ Master
(Administrator)


Hallo,

Zitat von Audron-AT-www:

Sooo ich habs


Was ist mit Leerzeichen etc.?
Weiterhin: Die Funktion Ersetzen() basiert ja (mehr oder weniger) auf einer beliebigen Permutation. Jetzt noch die Decrypt-Function bei nicht bekanntem Zielstring (cstrDest).
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe

Dieser Post wurde am 19.03.2006 um 13:59 Uhr von Uwe editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
013
25.03.2006, 21:47 Uhr
~LeatherFace
Gast


Also kleines Update vonwegen Leerzeichen.

Man muss einfach hinter "abcdefghijklmnopqrstuvwxyz" noch ein leerzeichen machen also,
"abcdefghijklmnopqrstuvwxyz " oder eben andere zeichen, "abcdefghijklmnopqrstuvwxyz ."

@Uwe: Einfach kranker Satz "Weiterhin: Die Funktion Ersetzen() basiert ja (mehr oder weniger) auf einer beliebigen Permutation. Jetzt noch die Decrypt-Function bei nicht bekanntem Zielstring (cstrDest)."

What the Fuck is Permutation.

danke Jungs
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
014
25.03.2006, 22:47 Uhr
FloSoft
Medialer Over-Flow
(Administrator)



Zitat:

What the Fuck is Permutation





http://de.wikipedia.org/wiki/Permutation
--
class God : public ChuckNorris { };

Dieser Post wurde am 25.03.2006 um 22:48 Uhr von FloSoft editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: [ 1 ] > 2 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: