[aguml]

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?