XProfan

English

Dietmar
Horn

Hello together,

somehow seem I time again whom woods not sheer trees To see.

The following code functions with the einfachen Veschlüsselungsmethode (mode 0) correctly, in the mode 1 comes against it only Garbage out.

Compile Mark Separation

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

what should I on the code Change, circa nevertheless The sicherere Verschlüsselungsmethode in the mode 1 use to?

Greeting
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: [...]

09/05/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

RGH

Hi,
with Verschlüsselung with 1 can (with high probability) Strings come into being, which not correctly in a INI-File write and/or from your reading let.
here helps the Funktionspaar Encode64()/Decode(64): Encode64() power from eachone beliebigen Bytefolge a String. the only from darstellbaren characters exists and Decode(64) GetControlParas (B diuesen String again into Original-Bytefolge back.
with this double Verschlüsselung works it then:

Compile Mark Separation

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