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