Français
Source/ Codesnippets

Crypt String Text Verschlüsseln - 2

 

Findus
j'ai une Code im Internet trouvé qui chez mir à cause de fehlern mais pas lief et den habe je récente geschrieben. avec cela peux on text très sûrement verschlüsseln.
KompilierenMarqueSéparation
def cryptacquirecontext(5) !"Advapi32.dll","CryptAcquireContextA"
def cryptcreatehash(5) !"Advapi32.dll","CryptCreateHash"
def cryptdecrypt(6) !"Advapi32.dll","CryptDecrypt"
def cryptderivekey(5) !"Advapi32.dll","CryptDeriveKey"
def cryptdestroyhash(1) !"Advapi32.dll","CryptDestroyHash"
def cryptdestroykey(1) !"Advapi32.dll","CryptDestroyKey"
def cryptencrypt(7) !"Advapi32.dll","CryptEncrypt"
def crypthashdata(4) !"Advapi32.dll","CryptHashData"
def cryptreleasecontext(2) !"Advapi32.dll","CryptReleaseContext"

proc encode

    parameters txt$,schl$
    declare erg$,hh&,hk&,hp&,len&,puffer#
    cryptacquirecontext(addr(hp&),0,0,1,0)
    len&=len(txt$)
    dim puffer#,len&+2+128
    string puffer#,0=txt$

    if hp&

        cryptcreatehash(hp&,32771,0,0,addr(hh&))

        if hh&

            crypthashdata(hh&,addr(schl$),len(schl$),0)
            cryptderivekey(hp&,26625,hh&,1,addr(hk&))

            if hk&

                cryptencrypt(hk&,0,1,0,puffer#,addr(len&),len(txt$)*2+128)
                cryptdestroykey(hk&)

            endif

            cryptdestroyhash(hh&)

        endif

        cryptreleasecontext(hp&,0)

    endif

    erg$=encode64(char$(puffer#,0,len&))
    dispose puffer#
    return erg$

endproc

proc decode

    parameters txt$,schl$
    declare erg$,hh&,hk&,hp&,len&,puffer#,tmp$
    cryptacquirecontext(addr(hp&),0,0,1,0)
    tmp$=decode64(txt$)
    len&=len(tmp$)
    dim puffer#,len&*2+128
    string puffer#,0=tmp$

    if hp&

        cryptcreatehash(hp&,32771,0,0,addr(hh&))

        if hh&

            crypthashdata(hh&,addr(schl$),len(schl$),0)
            cryptderivekey(hp&,26625,hh&,1,addr(hk&))

            if hk&

                if cryptdecrypt(hk&,0,1,0,puffer#,addr(len&))

                    erg$=string$(puffer#,0)

                endif

                cryptdestroykey(hk&)

            endif

            cryptdestroyhash(hh&)

        endif

        cryptreleasecontext(hp&,0)

    endif

    dispose puffer#
    return erg$

endproc

print decode(encode("INHALT","PASSWORT"),"PASSWORT")
waitinput

1 kB0,99 €
inkl. MwSt.
aucun Versandgebühr
item:DE-9277
Bezeichnung:crypt.exe
Version:1
Kurzbeschreibung: crypt.exe
Hochgeladen:08.09.2014
Download
 
06.01.2013  
 



Funktioniert chez mir super.
 
06.01.2013  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

5.717 Views

Untitledvor 0 min.
Erhard Wirth14.06.2024
Uwe Starke17.11.2023
p.specht20.11.2021
Uwe Lang20.11.2021
plus...

Themeninformationen

cet Thema hat 2 participant:

iF (1x)
Findus (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie