Club Builder

[alex_999]

Alguien sabe como se manejan los componentes idbase64encoder y idbase64decoder?, se encuentran en la pestaña indy misc.
_________________
Si me quieres retar, aceptare.
Entra en http://www.exides.net, el mejor MMOG de españa!!

[+AarzaK]

Esos componentes me dan la impresion que no sirven, yo use la misma sintaxis dada en el IRC en el Canal de #delphi en el nodo EFNet y no me sirve.

les dije que como era posible que borland diera componentes asi que no sirven y me dijeron que los componentes de borland no son "TId" que son INDY.

En conclusion para mi no SIRVEN.

Si alguien lo sabe usar, una mano.

PD: SI deseas encriptar HAZLO manual (RSA,SHA,MD5,TEA o lo que sea)

[nuno]

#include <math.h>

AnsiString encriptar(char *cVariable)
{
char aClave[7][7] = {"111100\0", "111010\0", "110010\0", "111110\0", "101010\0"};
AnsiString cCambio, cBin1, cBin2, cClave;
int nChar, nDato, nValor;

cCambio = "";
nDato = 0;
nChar = 0;
while (cVariable[nChar] != NULL)
{
if (nDato > 5)
nDato = 0;
//////// valor en ASCII
nValor = cVariable[nChar];
cBin1 = "";
cBin2 = "";
cClave = aClave[nDato];
/////////////Convierte a binario////////////////
while (nValor > 1)
{
cBin1 = IntToStr(nValor % 2) + cBin1;
nValor = INT(nValor / 2);
}
cBin1 = IntToStr(nValor) + cBin1;
//////////////////Agrega 0 hasta igualar////////
if (cBin1.Length() > cClave.Length())
while (cClave.Length() < cBin1.Length())
cClave = "0" + cClave;
else
while (cBin1.Length() < cClave.Length())
cBin1 = "0" + cBin1;

//////////////////XOR Binario///////////////////
for (int j = cClave.Length(); j > 0; j--)
cBin2 += cClave.SubString(j,1) ^ cBin1.SubString(j,1);
/////////////Transforma a decimal///////////////
nValor = 0;
for (int j = cBin2.Length(); j > 0; j--)
nValor += StrToInt(cBin2.SubString(j,1)) * pow(2, (j - 1));
////////////////////////////////////////////////
cCambio += CHAR(nValor);
nDato ++;
nChar ++;
}
return (cCambio);
}

Slaudos!!!