Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   No se como invertir esta funcion (https://www.clubdelphi.com/foros/showthread.php?t=90946)

aguml 15-10-2016 22:15:46

No se como invertir esta funcion
 
Hola, estoy liado con esta funcion que lo que hace es desencriptar una cadena:
Código PHP:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    
DWORD valor;
    
DWORD tamCadena;
    
DWORD contador;
    
DWORD aux;
    
AnsiString buffer;

    
contador 0;
    
tamCadena Edit1->Text.Length();
    
buffer Edit1->Text.c_str();

    do {
        
valor buffer[contador+1];
        if (
valor >= 0x40) {
            
valor -=0x41;
            
asm{cdq};
            
valor valor 0xA;
            
valor += 0x30;
            
buffer[contador+1]=(char)valor;
        } else {
            
aux contador;
            
aux &= 0x80000003;
            if(
aux 0){
                
aux--;
                
aux |= 0xfffffffc;
                
aux++;
            }
            
valor -= aux;
            
buffer[contador+1]=(char)valor;
        }
        ++
contador;
        --
tamCadena;
    } while (
tamCadena);

    
Edit2->Text=buffer;


Lo que quiero es invertir la funcion para que encripte, o sea que haga lo inverso a lo que hace pero no se como hacerlo. ¿Podeis echarme una mano?


La franja horaria es GMT +2. Ahora son las 16:20:15.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi