Hi,
noch ein kleiner Denkanstoß, allerdings in VB , Sorry
Code:
Private Sub Uebersetzen()
Code = "LPUNLKPJOACVUAOLVKVYZAVYTRULJOAYBWYLJOACVUKYHBZZCVTDHSKLRVTTPJOOLYPJOTBZZZHNLULZDLPOUHJOALAZLOYHSSBLILYHSSHBMKLUAHUULUZWPAGLUZHOPJONVSKLULSPJOASLPUZPAGLUBUKKYVILUHBZKLTOPTTLSZAVYZHOTPANYVZZLUHBNLUKHZJOYPZARPUKCVY"
no_code = ""
For n = 1 To Len(Code)
char = Mid(Code, n, 1)
If Asc(char) > 71 Then
no_code = no_code + Chr(Asc(char) - 7)
Else
no_code = no_code + Chr(Asc(char) + 19)
End If
Next n
End Sub
funktionieren tut's jedenfalls ....
Gruß
Christopher
Lesezeichen