XProfan

Français

Dietmar
Horn

allô zusammen,

irgendwie scheine je la fois wieder den forêt avant lauter Bäumen pas trop voyons.

qui folgende Code funktioniert avec qui einfachen Veschlüsselungsmethode (Modus 0) korrekt, im Modus 1 venez dagegen seulement Müll heraus.

Kompilieren Marque Séparation

PASSWORD 0,"DHO12345dho"'Klappt!
'PASSWORD 1,"DHO12345dho" 'Klappt pas
Déclarer tmp1$,tmp2$
Var inidat$ = $PROGDIR + "Test.ini"
writeini inidat$,"SETUP","T1" = pwd$("Text123")
writeini inidat$,"SETUP","T2" = pwd$("Text321")
CLS
imprimer pwd$(ReadIni$(inidat$,"SETUP","T1"))
imprimer pwd$(ReadIni$(inidat$,"SETUP","T2"))
Waitinput

quoi devrait je am Code changement, um toutefois qui sicherere Verschlüsselungsmethode im Modus 1 verwenden trop peut?

Salut
Dietmar

XProfan X2
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

05.09.2011 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

RGH

Salut,
chez Verschlüsselung avec 1 peut (avec hoher probabilité) Cordes entstehen, qui sich pas korrekt dans un INI-Dossier écrivons et/ou bien aus son lesen laisser.
ici hilft cela Funktionspaar Encode64()/Decode(64): Encode64() pouvoir aus chacun beliebigen Bytefolge une String. qui seulement aus darstellbaren marque besteht et Decode(64) wandelt diuesen String wieder dans qui Original-Bytefolge zurück.
avec cette doppelten Verschlüsselung klappt es ensuite:

Kompilieren Marque Séparation

' PASSWORD 0,"DHO12345dho"'Klappt!
PASSWORD 1,"DHO12345dho"'Klappt pas
Déclarer tmp1$,tmp2$
Var inidat$ = $PROGDIR + "Test.ini"
writeini inidat$,"SETUP","T1" = encode64(pwd$("Text123"))
writeini inidat$,"SETUP","T2" = encode64(pwd$("Text321"))
CLS
imprimer pwd$(decode64(ReadIni$(inidat$,"SETUP","T1")))
imprimer pwd$(decode64(ReadIni$(inidat$,"SETUP","T2")))
Waitinput