C a C++ > Obecné
Konverzia z C++ do delphi
(1/1)
František:
--- Kód: ---// bCrypt = FALSE .. Dekryptuj text
// bCrypt = TRUE .. Zakryptuj text
CString CCrypt::Koduj(CString strText, BOOL bCrypt)
{
#define KODUJ_ROZSAH 256 - ' ' // 128-' ' // OK, ale nerobi diakriticke znaky
CString strOut = strText;
INT znak;
unsigned char *ptrkod, kodx;
unsigned char *kod = (unsigned char*)strKodStr.GetBuffer();
unsigned char *instr = (unsigned char*)strText.GetBuffer();
unsigned char *outstr = (unsigned char*)strOut.GetBuffer();
unsigned char oldznak = 0x71;
for (ptrkod = kod; *instr; ptrkod++,instr++,outstr++)
{
if (*instr<' ') znak = *instr;
else
{
kodx = *ptrkod;
if (!kodx) { ptrkod = kod; kodx = *ptrkod; }
kodx ^= (oldznak<<3) ^ (oldznak>>2) ^ 0x3a;
if (bCrypt)
{
znak = (int)*instr - ' ' + kodx;
while (znak >= KODUJ_ROZSAH) znak -= KODUJ_ROZSAH;
znak += ' ';
oldznak = (char)znak;
}
else
{
znak = (int)*instr - ' ' - kodx;
while (znak < 0) znak += KODUJ_ROZSAH;
znak += ' ';
oldznak = *instr;
}
}
*outstr = (unsigned char)znak;
}
return strOut;
}
--- Konec kódu ---
syntax C++ je pre mňa španielska dedina ... vedel by mi niekto vysvetliť funkciu? prípadne skonvertovať?
František:
prosim Radek vymazat, uz bezpredmentne ... a nepotrebne.. slepa ulicka, inak je to
Navigace
[0] Seznam témat
Přejít na plnou verzi