Codieren!

[reflexor]

Moin leutz,

ich möchte in VB ein Programm machen, was wie folgt funktionieren sollte!

Ich schreibe ein ein textfeld z.B. Hallo rein dann drücke ich auf umwandeln und im textfeld2 wird dann z.B. Ckoor ausgegeben werden, das heisst das für jeden buchstaben ein anderer ausgegeben wird ! Ich weiss das das viel arbeit ist, aber das mir vll jemand eine grundstruktur geben kann dann z.B. die Definition für a = c, dann kann ich den rest machen!

Gruß michael

 

[MAN]

Folgendes machts möglich:

Private Function GetCodedString(ByVal strText As String) As String
    Dim codedString As String
    Dim  i As Integer
    
    'Ersetzt die Buchstaben von a-z, bei Bedarf ändern
    codedString = "qwertzuiopasdfghjklyxcvbnm"
    
    For i = 1 To  Len(strText)
        GetCodedString = GetCodedString & Mid(codedString, Asc(Mid(strText, i, 1)) - 96, 1)
    Next  i
End Function

"qwertzuiopasdfghjklyxcvbnm" ist dafür da die Zeichenkette "abcdefghijklmnopqrstuvwxyz" zu ersetzen. Sprich, wenn du a=c, b=r und c=z haben willst, dann musst du die so ändern: "crz....."

mfG,
MAN

 

[reflexor]

Jo danke MAN,

ich werds gleich mal ausprobieren !!

Gruß Michael