XProfan

Español

Dietmar
Horn

¡Hola zusammen,

irgendwie scheine Yo veces otra vez el Wald antes lauter Bäumen no a sehen.

Der folgende Code funktioniert con el einfachen Veschlüsselungsmethode (Modus 0) korrekt, en el Modus 1 kommt dagegen sólo Müll heraus.

Kompilieren Marca Separación

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

Was müßte Yo al Code ändern, en todavía el sicherere Verschlüsselungsmethode en el Modus 1 uso a puede?

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

RGH

¡Hola,
en Verschlüsselung con 1 puede (con hoher Wahrscheinlichkeit) Cuerdas entstehen, que no korrekt en un INI-Expediente escribir y/oder de ihr lesen dejar.
Hier hilft el Funktionspaar Encode64()/Decode(64): Encode64() macht de cada beliebigen Bytefolge una String. el sólo de darstellbaren Signo besteht y Decode(64) wandelt diuesen String otra vez en el Original-Bytefolge zurück.
Mit dieser doppelten Verschlüsselung klappt lo entonces:

Kompilieren Marca Separación

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