| |
| |
|
| - Página 1 - |
|
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).
' 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
|
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Georg
Teles | 
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:
' 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 |
|
| |
| |
| |
|
|
|
E.T. | Wenn uno a$=translate$(a$,"=","#") o. d$=translate$(d$,"=","#") auskommentiert, klappts  |
|
| |
| XProfan X3Grüß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 ▲ |
|
| |
|
|
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 ▲ |
|
| |
|
|
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...  |
|
| |
| |
| |
|
|
Georg
Teles |
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:
' 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 |
|
| |
| |
| |
|
|
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! |
|
| |
| |
| |
|
(312)
Deutsch
English
Français
Español
Italia