//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

int ConvertBase32ToBase10(String data)
{
        if(data <='9')
        return StrToInt(data);
        else if (data=='A')
        return 10;
        else if (data=='B')
        return 11;
        else if (data=='C')
        return 12;
        else if (data=='D')
        return 13;
        else if (data=='E')
        return 14;
        else if (data=='F')
        return 15;
        else if (data=='G')
        return 16;
        else if (data=='H')
        return 17;
        else if (data=='J')
        return 18;
        else if (data=='K')
        return 19;
        else if (data=='L')
        return 20;
        else if (data=='M')
        return 21;
        else if (data=='N')
        return 22;
        else if (data=='P')
        return 23;
        else if (data=='R')
        return 24;
        else if (data=='S')
        return 25;
        else if (data=='T')
        return 26;
        else if (data=='U')
        return 27;
        else if (data=='V')
        return 28;
        else if (data=='W')
        return 29;
        else if (data=='X')
        return 30;
        else if (data=='Y')
        return 31;
        return 100;
}
//---------------------------------------------------------------------------

char ConvertBase10ToBase32(int data)
{

        if(data <=9)
        return data;
        else if (data==10)
        return 'A';
        else if (data==11)
        return 'B';
        else if (data==12)
        return 'C';
        else if (data==13)
        return 'D';
        else if (data==14)
        return 'E';
        else if (data==15)
        return 'F';
        else if (data==16)
        return 'G';
        else if (data==17)
        return 'H';
        else if (data==18)
        return 'J';
        else if (data==19)
        return 'K';
        else if (data==20)
        return 'L';
        else if (data==21)
        return 'M';
        else if (data==22)
        return 'N';
        else if (data==23)
        return 'P';
        else if (data==24)
        return 'R';
        else if (data==25)
        return 'S';
        else if (data==26)
        return 'T';
        else if (data==27)
        return 'U';
        else if (data==28)
        return 'V';
        else if (data==29)
        return 'W';
        else if (data==30)
        return 'X';
        else if (data==31)
        return 'Y';
        return ' ';
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Label1->Caption=ConvertBase32ToBase10(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Label2->Caption=ConvertBase10ToBase32(StrToInt(Edit2->Text));

}
//---------------------------------------------------------------------------