[Ledian_Fdez]

Amigos esta función la usaba para encriptar texto en Delphi. Ahora no hallo como traducirla al equivalente en C++. Alguien podría ayudarme?

Function TDM.Encrypt;
Var
 I : byte;
begin
 {Proceso de Encriptación o Desencriptación de la contraseña}

   Result := '';
   case Dir of
     Protect : For I := 1 To Length(S) Do Result := Result + Chr(Ord(S[i]) + 215);
     UnProtect : For I := 1 To Length(S) Do Result := Result + Chr(Ord(S[i]) - 215);
   end;
end;

salu2
Ledian