Newbie Spellweaver
- Joined
- May 23, 2012
- Messages
- 73
- Reaction score
- 42
//---------------------------------------------------------------------------
#pragma hdrstop
#include "XORCrypt.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
AnsiString XOR_Crypt(AnsiString Input, AnsiString Key)
{
AnsiString Out;
for (int i=1,k=1; i<=Input.Length(); ++i,++k)
{
if( k>Key.Length() ) k=1;
int dig = Input ^ Key[k];
Out += IntToHex(dig,2);
}
return Out;
}
//---------------------------------------------------------------------------
AnsiString XOR_Encrypt(AnsiString Input, AnsiString Key)
{
AnsiString Out;
for (int i=1,k=1; i<=Input.Length(); i+=2,++k)
{
if( k>Key.Length() ) k=1;
int dig = StrToInt ( "0x"+Input.SubString(i,2));
Out += char(dig ^ Key[k]);
}
return Out;
}
//---------------------------------------------------------------------------
#pragma hdrstop
#include "XORCrypt.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
AnsiString XOR_Crypt(AnsiString Input, AnsiString Key)
{
AnsiString Out;
for (int i=1,k=1; i<=Input.Length(); ++i,++k)
{
if( k>Key.Length() ) k=1;
int dig = Input ^ Key[k];
Out += IntToHex(dig,2);
}
return Out;
}
//---------------------------------------------------------------------------
AnsiString XOR_Encrypt(AnsiString Input, AnsiString Key)
{
AnsiString Out;
for (int i=1,k=1; i<=Input.Length(); i+=2,++k)
{
if( k>Key.Length() ) k=1;
int dig = StrToInt ( "0x"+Input.SubString(i,2));
Out += char(dig ^ Key[k]);
}
return Out;
}
//---------------------------------------------------------------------------
You must be registered to see links
You must be registered to see links