Forums

Español

Walter

¡Hola!
Posesiones mi liebe Not con el Ver- y Entschlüsseln mittels password, pwd$, encode64 y decode64.
Lo kommt esta no siempre el heraus, Yo einfülle...

Kurz dijo: Lo entstehen gelegentlich falsche Buchstaben.
Ob el de pwd$ kommt oder de en-/decode, kann Yo por desgracia, no erkennen. Bin ya froh, media Code en una funktionierendes Ejemplo eindampfen a puede.
Hier mein Code, el en el 1. messagebox ya 2 Fehler en el Ver-/Entschlüsseln mittels password 1 zeigt (Hälxte en lugar de Hälfte; en), en el 2. messagebox, mittels password 0 una weitern (s}hwieriger en lugar de schwieriger).

Kompilieren Marca Separación

' Fehler con password/pwd$/encode64/decode64
declarar orig$,enc$,dec$
'Testsatz
orig$= "Zum Test el Verschlüsselung benötigt uno viel Geduld! El Hälfte el Anstrengung es en. A Einstimmung en el zweite son hier ya 2 Fehler a sehen (Hälfte y en). Auch con password 0 hay Fehler, aber todavía schwieriger a reproduzieren!"
' Teil 1: Mit password 1
password 1,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 1 - con password 1\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)
' Teil 2: Mit password 0
password 0,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 2 - con password 0\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)

proc __iniEncode

    parámetros cadena s
    declarar a$
    a$=pwd$(s)
    a$=translate$(a$,"=","#")
    a$=encode64(a$)
    volver a$

ENDPROC

proc __iniDecode

    parámetros cadena s
    declarar d$
    d$=decode64(s)
    d$=translate$(d$,"#","=")
    d$=pwd$(d$)
    volver d$

ENDPROC

XProfan X4

03.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Georg
Teles

Bueno Morgen,

Usted hast una pequeña Denkfehler en el Reihenfolge el Kodierung:

En Encode muss Translate NACH el encode64 posición.
Beim Decode muss Translate VOR el decode64 posición.

Hier dein Code korrigiert:

Kompilieren Marca Separación

' Fehler con password/pwd$/encode64/decode64
declarar orig$,enc$,dec$
'Testsatz
orig$= "Zum Test el Verschlüsselung benötigt uno viel Geduld! El Hälfte el Anstrengung es en. A Einstimmung en el zweite son hier ya 2 Fehler a sehen (Hälfte y en). Auch con password 0 hay Fehler, aber todavía schwieriger a reproduzieren!"
' Teil 1: Mit password 1
password 1,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 1 - con password 1\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)
' Teil 2: Mit password 0
password 0,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 2 - con password 0\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)

proc __iniEncode

    parámetros cadena s
    declarar a$
    a$=pwd$(s)
    a$=encode64(a$)
    a$=translate$(a$,"=","#")
    volver a$

ENDPROC

proc __iniDecode

    parámetros cadena s
    declarar d$
    d$=translate$(s,"#","=")
    d$=decode64(d$)
    d$=pwd$(d$)
    volver d$

ENDPROC

Nu dürfte alles correcto traducido voluntad

Grüße

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

10.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Wenn uno a$=translate$(a$,"=","#") o. d$=translate$(d$,"=","#") auskommentiert, klappts

XProfan X3
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

03.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ah sí, de el Ayuda a Pwd$(S) :

...
Lo kann sin embargo vorkommen, dass en el String por el Umwandlung no druckbare Sonderzeichen entstehen (como z.B,. el Zeilenende-Signo), sodass una Nutzung dieser Cuerdas en INI-Archivos oder Textdateien no empfehlenswert es. In binären Archivos kann él problemlos gespeichert voluntad.
...

Yo denke, du veränderst con el translate esta (Binär-) String derartig, el entonces simplemente ya beim decode64 falsche Signo entstehen, welche entonces encode64 ya correcto "übersetzt", allerdings ya "falsch gefüttert" se.

Was se el translate überhaupt bewirken ??
Erschließt se me ahora no así bastante...

Hab algo como auch ya veces gemacht:
Mit pwd$ verschlüsselt, con decode64 otra vez "verwurstelt" y schreibbar para una .ini gemacht, y todos entonces sauber en uno .INI-Expediente abgelegt. Nie Problemas gehabt beim "zuückverwursteln"

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

04.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Walter

"nicht druckbare Sonderzeichen" - por lo tanto es sí.
Das Konzept stammt no de me, pero de hier: [...]

Soweit Yo verstanden habe, se el translate$ el encode-Ende-Signo "=", el por pwd$ entstehen podría, en una harmloses Signo traducir, como sonst encode abbricht.
Und nachher otra vez zurück.
Gracias jedenfalls!
Yo probier sólo ahora veces sin translate$, si en media "normalen Texten" funktioniert. Ist sólo siempre ungewiss, si entonces irgendwann doch una "böse" Konstellation auftritt...

XProfan X4

04.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Georg
Teles

Kompilieren Marca Separación

' Fehler con password/pwd$/encode64/decode64
declarar orig$,enc$,dec$
'Testsatz
orig$= "Zum Test el Verschlüsselung benötigt uno viel Geduld! El Hälfte el Anstrengung es en. A Einstimmung en el zweite son hier ya 2 Fehler a sehen (Hälfte y en). Auch con password 0 hay Fehler, aber todavía schwieriger a reproduzieren!"
' Teil 1: Mit password 1
password 1,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 1 - con password 1\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)
' Teil 2: Mit password 0
password 0,"wAs du hEUTE bekommst, geHört DIiR aUch morGEn todavía!"
'Testsatz verschlüsseln y otra vez entschlüsseln
enc$=__iniencode(orig$)
dec$=__inidecode(enc$)
messagebox("Teil 2 - con password 0\n\nOriginalsatz:\n"+orig$+"\n\nVer- y entschlüsselt:\n"+ dec$,"",0)

proc __iniEncode

    parámetros cadena s
    declarar a$
    a$=pwd$(s)
    a$=encode64(a$)
    a$=translate$(a$,"=","#")
    volver a$

ENDPROC

proc __iniDecode

    parámetros cadena s
    declarar d$
    d$=translate$(s,"#","=")
    d$=decode64(d$)
    d$=pwd$(d$)
    volver d$

ENDPROC

Nu dürfte alles correcto traducido voluntad

Grüße

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

10.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Walter

Sí, como tener Yo falso überlegt.

En encode es en el Ayuda:
todos Werte voluntad en máximo 64 Signo dargestellt:
A - Z, a - z, 0 - 9 y + sowie /. Als Endekennzeichen dient el =.

Das translate$ es offenbar dazu como, dass el = como Endezeichen vom encode no con el = zwischen Eintragsschlüssel y Eintrag en el INI kollidiert.

Passt! Vielen Dank!

XProfan X4

10.11.2019 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita