С++ Builder 6. Генератор ключей для программы.

#include <iostream>
#include <string>
//----------------------------------------------------------------------------------------------------
std::string func(std::string serial)
 {
 serial+=serial[0];
 for(unsigned i=0;i<serial.size()-1;i++)
    {
     if(isalpha(serial[i]+i)||isdigit(serial[i]+i)) serial[i]+=i;
     else  if(isalpha(serial[i]-1)||isdigit(serial[i]-1)) serial[i]--;
    }
 return serial;
 }
//---------------------------------------------------------------------------
int _tmain(int argc, _TCHAR* argv[])
{
std::string s;
for(;;)
 {
 std::cout<<"Serial= ";
 std::cin>>s;
 std::cout<<"Key=  "<<func(s)<<std::endl;
 if(s=="quit" || s=="exit") break;
 system("pause");
 }
return 0;
}
//---------------------------------------------------------------------------

#include <stdlib.h>
 
AnsiString create_uid(void)
{
    TDateTime t = Now();
    unsigned short y, month, d, h, m, s, ms;
    t.DecodeDate(&y, &month, &d);
    t.DecodeTime(&h, &m, &s, &ms);
    return
    IntToStr(y) +
    IntToStr(month) +
    IntToStr(d) +
    IntToStr(h) +
    IntToStr(m) +
    IntToStr(s) +
    IntToStr(ms);
}
 
AnsiString encode(const unsigned seed, const AnsiString &s)
{
    AnsiString res = s;
    srand(seed);
    for (int i = 1; i <= s.Length(); i++)
    {
        int c = res[i];
        c -= '0';
        c += rand() * 10 / RAND_MAX;
        if (c >= 10) c -= 10;
        c += '0';
        res[i] = c;
    }
    return res;
}
 
AnsiString decode(const unsigned seed, const AnsiString &s)
{
    AnsiString res = s;
    srand(seed);
    for (int i = 1; i <= s.Length(); i++)
    {
        int c = res[i];
        c -= '0';
        c -= rand() * 10 / RAND_MAX;
        if (c < 0) c += 10;
        c += '0';
        res[i] = c;
    }
    return res;
}
 
AnsiString uid = create_uid(); //в программе генерируем уникальную строку
unsigned seed_1 = 123; //тут желательно поставить какое нибудь действительно уникальное значение
unsigned seed_2 = 456; //тут тоже желательно поставить какое нибудь действительно уникальное значение
AnsiString s_1 = encode(seed_1, uid); //кодируем нашу уникальную строку и посылаем разработчику
AnsiString s_2 = decode(seed_1, s_1); //в генераторе декодируем
AnsiString s_3 = encode(seed_2, s_2); //кодируем другим ключем и посылаем пользователю
AnsiString s_4 = decode(seed_2, s_3); //в программе декодируем и сравниваем с тем что посылали
if (uid != s_4)
{
    Application->MessageBox("Вы меня обманываете!!!", "Сообщение", MB_OK);
}