Ahí lo encontré, pasteo el trozo de código:

/*
        EAX = ProgramID
        EDX = SiteCode
        EBX = UserCode
        */
        ProgramID = StrToHex(aux);
        ProgramID = (ProgramID ^ SiteCode) * 2;
        SiteCode = SiteCode - UserCode;
        ProgramID = (ProgramID ^ FString) ^ SiteCode;
        UserCode = UserCode * 2;
        SiteCode = (SiteCode/0x9A4) * (SiteCode%0x9A4);
        ProgramID = (((ProgramID ^ SiteCode)-0xA6B38164)^LString)+UserCode;
        strcpy(aux,eFString->Text.c_str());        FString = StrToHex(aux);
        strcpy(aux,eLString->Text.c_str());        LString = StrToHex(aux);
        TVarRec sd[] = {(int)LString,(int)ProgramID,(int)FString};
        String Cadena;
        Cadena = Format("%4X-%8X-%4X",sd,3);
        eInitCode->Text = Cadena;

La cosa está aquí:

SiteCode = (SiteCode/0x9A4) * (SiteCode%0x9A4);