Nativescript close application

 Example of use in function onClose()

import { isIOS } from '@nativescript/core/platform';

//declaration of native functions
declare const android:any;
declare const exit: (code: number)=>void;

 

//Use for example in component 

onClose() {

    if (isIOS) {
        exit(0);
    } else {    
        android.os.Process.killProcess(android.os.Process.myPid());
    }
  }

Nativescript block Back Button on Android

 Example of blocking Soft Back Button on android in angular component

import { Component, OnInit } from '@angular/core';
import { isAndroid } from '@nativescript/core/platform';
import { AndroidApplication, AndroidActivityBackPressedEventData } from "@nativescript/core/application";
import * as app from "@nativescript/core/application";

declare const android:any;

//Put this code in implementation OnInit of component

ngOnInit() {   
     if (isAndroid) {
      app.android.on(AndroidApplication.activityBackPressedEvent, (data: AndroidActivityBackPressedEventData) => {                      
          data.cancel = true; // prevents default back button behavior          
      });
    }
  }

Nativescript: Assets Folder Not Including html,js, css files

In default options WebpackPlugin copy Images and fonts folder. 

If You need to copy for example assets folder with js, html etc. for webView You mast update
 

CopyWebpackPlugin in your webpack.config.js to include the asset folder

for 6.x version of nativescript |

new CopyWebpackPlugin([
 { from: "fonts/**" },
 { from: "**/*.jpg" },
 { from: "**/*.png" },
 { from: "assets/**" }, // Add your asset folder path like this
], { ignore: [`${relative(appPath, appResourcesFullPath)}/**`] }),

for 7,8 version 

webpack.Utils.addCopyRule('assets/**')

JS:Clickjack-A [Trj], JS/Agent.NKW trojan na stronie - Rozwiązanie

Ten Trojan dołącza się zazwyczaj do pliku php, jako skrypt js
U mnie wystąpił w templetce modułu joomla inowslider.
Usunięcie:

1. Otwórz \modules\mod_inowslider\tmpl\default.php

2. Poszuka i usuń skrypt wyglądający mniej więcej tak :
<script language="JavaScript">
function dnnViewState()
{
var a=0,m,v,t,z,x=new Array('xxxxxx'),l=x.length;while(++a<=l){m=x[l-a];
t=z='';
for(v=0;v<m.length;){t+=m.charAt(v++);
if(t.length==2){z+=String.fromCharCode(parseInt(t)+25-l+a);
t='';}}x[l-a]=z;}document.write('<'+x[0]+' '+x[4]+'>.'+x[2]+'{'+x[1]+'}</'+x[0]+'>');}dnnViewState();
</script> 

3.Na końcu pliku zlokalizuj i usuń ten kod.
<p class="dnn">By A <a href="http://www.autson.com/" title="web design company">Web Design</a></p>

4.Po zapisaniu usunąłeś trojana z modułu, możesz jeszcze przeskanować plik dla pewności antywirusem np: Avastem, Nodem

Set Application Run As Admin

Dzisiaj potrzebowałem funkcji do ustawienia instalowanej aplikacji w tryb uruchomienia jako administrator - oto ona:

export prototype BOOL SetRunAsAdmin(STRING, BOOL);
Parametry funkcji:

• szFile - nazwa pliku
• bLog - czy zapisywać do logu

function BOOL SetRunAsAdmin(szFile, bLog)
#define UKEYLAYERS "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\AppCompatFlags\\Layers"
#define DATA "RUNASADMIN"
string szName, sKey;
LIST listSubKeys;
number nReturn;
int i;
begin
 if (bLog) then WriteLog(0,"- Dodanie praw administratora do uruchomienia pliku: "+szFile); endif;
 
 //Przestaw rejestr na 64 bity
 if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS | REGDB_OPTION_WOW64_64KEY;  endif;
 
 szName = szFile;
 RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
 if (!RegDBKeyExist(UKEYLAYERS)) then
   if (bLog) then WriteLog(1," - brak klucza rejestru "+UKEY); endif;
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS & ~REGDB_OPTION_WOW64_64KEY;  endif;  
   return FALSE;
 endif;
 
 //Na istniejącym kluczu;
 listSubKeys  = ListCreate(STRINGLIST);
 nReturn = RegDBQueryKey(UKEYLAYERS, REGDB_NAMES, listSubKeys );
 if (nReturn=0) then
  if (ListCount(listSubKeys)>0) then        
   ListSetIndex(listSubKeys,LISTFIRST);
    for i=0 to ListCount(listSubKeys)-1                  
     ListCurrentString ( listSubKeys, sKey );                       
     if (sKey==szName) then
      if (bLog) then WriteLog(1," - klucz ustawien już istnieje"); endif;
      RegDBSetKeyValueEx(UKEYLAYERS, szName, REGDB_STRING, DATA, -1);
      if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS & ~REGDB_OPTION_WOW64_64KEY; endif;  
      return TRUE;        
      endif;
     
     ListSetIndex ( listSubKeys, LISTNEXT );
    endfor;  
  endif;      
 endif;
  
  //Stworz nowy
  nReturn =  RegDBSetKeyValueEx(UKEYLAYERS, szName, REGDB_STRING, DATA, -1);
  if (nReturn==0) then
   if (bLog) then WriteLog(1," - prawa administratora dodane"); endif;
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS & ~REGDB_OPTION_WOW64_64KEY; endif;   
   return TRUE;
  else
   if (bLog) then WriteLog(1," - nie dodano praw administratora"); endif;
   if (SYSINFO.bIsWow64!=0) then REGDB_OPTIONS = REGDB_OPTIONS & ~REGDB_OPTION_WOW64_64KEY; endif;   
   return FALSE;   
  endif;
end;

Pobranie ścieżki DocumentRoot z konfiguracji Apache w InstallShield - Get DocumentRoot from Apache Config File

Niedawno potrzebna była mi kolejna funkcja zwracająca ścieżkę do DocumentRoot z konfiguracji serwera Apache, oto ona:
Nagłówek funkcji

export prototype BOOL GetApacheDocRoot(STRING /*plik konfiguracyjny Apache*/, BYREF STRING /*DocRootPath*/, BOOL /*bLog*/);

Parametry funkcji:

• ścieżka wraz z plikiem konfiguracyjnym np; httpd.conf
• referencja do zmiennej przechowująca ścieżkę
• bLog - czy zapisywać do logu

Zwracane wartość: true/false

A oto ciało funkcji:

function BOOL GetApacheDocRoot(szApacheConfigFile, svApacheDocRoot, bLog)
BOOL bResult;
LIST lsApache;
string szLine,szNewLine, szDocRoot;
int i;
begin
 if (bLog) then WriteLog(0,"* Pobieranie scieżki do DocumentRoot z konfiguracji Apache..."); endif;
 bResult = FALSE;
 if (Is(FILE_EXISTS,szApacheConfigFile)) then
  lsApache = ListCreate(STRINGLIST);
  ListReadFromFile ( lsApache, szApacheConfigFile ); //Odczyt Apache Conf
  if (ListCount(lsApache)>0) then       
   ListSetIndex(lsApache,LISTFIRST);        
   for i=0 to ListCount(lsApache)-1      
    ListCurrentString ( lsApache, szLine );
    szLine = StrTrim(szLine);
    if (StrFind(szLine,"DocumentRoot")>=0) then
     szNewLine = szLine;
     szNewLine = StrTrim(szNewLine);
     if (StrFind(szNewLine,"DocumentRoot")=0) then
      StrSub(szDocRoot,szNewLine, StrLength("DocumentRoot")+1,     StrLength(szNewLine));
      szDocRoot = StrTrim(szDocRoot);            
      bResult = TRUE;    
      if (bLog) then WriteLog(2,"DocumentRoot : "+szDocRoot); endif;
      StrReplace(szDocRoot,"\"","",0);
      StrReplace(szDocRoot,"/","\\",0);
      StrRemoveLastSlash(szDocRoot);
      svApacheDocRoot = szDocRoot;
     endif;  
    endif;
    ListSetIndex(lsApache,LISTNEXT);
   endfor;
  endif;  
 endif;

 ListDestroy(lsApache);

 return bResult;
end;

Pobranie ścieżki instalacyjnej zainstalowanego produktu po przez GUID - Get Install location by Product GUID in InstallShield

Przy tworzeniu aktualizacji czasami zachodzi potrzeba odczytania ścieżki instalacyjnej zainstalowanego wcześniej produktu. Jeżeli mamy GUID poprzedniego produktu możemy do tego wykorzystać poniższą funkcję. Funkcja odczytuje wartości rejestru zainstalowanych produktów.
Parametry:

• GUID  - GUID zainstalowanego  produktu\
• Path - odczytana ścieżka
• Name - odczytana nazwa produktu
• Version - odczytana wersja zainstalowanego produktu
• bLog - zapis do loga 

Funkcja zwraca true/false, wartość true w przypadku pozytywnego odczytania ścieżki instalacyjnej.

Nagłówek funkcji

export prototype BOOL GetInstallLocationGUID(STRING, /*GUID*/ BYREF STRING /*Path*/, BYREF STRING /*Name*/, BYREF STRING /*Version*/, BOOL /*bLog*/); 

Ciało funkcji
function BOOL GetInstallLocationGUID(szGUID, svPath, svName, svVersion, bLog)
#define UKEY  "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"
string RegPath, sKey, sValue, sData, sFolder;   
number nReturn, nResult, nType, nSize, i, nData;
BOOL bResult;
LIST   listSubKeys;
begin
  bResult = FALSE;
  
  if (bLog) then  WriteLog(1,"Odczyt ścieżki do zainstalowanego produktu"); endif;   
   
  listSubKeys  =  ListCreate(STRINGLIST);   
  RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
  nReturn = RegDBQueryKey(UKEY, REGDB_KEYS, listSubKeys );
  if (nReturn=0) then
   ListGetFirstString ( listSubKeys, sKey );
   if (ListCount(listSubKeys)>0) then        
       
     ListSetIndex(listSubKeys, LISTFIRST);
     for i=0 to ListCount(listSubKeys)-1
       ListCurrentString ( listSubKeys, sKey ); 
       if (sKey==szGUID) then                                 
         if (bLog) then  WriteLog(2,"- znaleziono zainstalowany produkt "+szGUID); endif;   
                
         RegPath=UKEY+"\\"+sKey;
         sFolder=sKey;
         if (RegDBKeyExist(RegPath)==1) then                      
                         
            sKey = RegPath;                            
            sValue="DisplayName";
            nType = REGDB_STRING;
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              svName = sData;
              if (bLog) then  WriteLog(3,"- nazwa produktu "+sData); endif;   
            else
              svName = "";
              if (bLog) then WriteLog(3,"- brak klucza nazwy produktu "); endif;   
            endif;                         
                                                   
            sValue="DisplayVersion";                         
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
             svVersion = sData;
             if (bLog) then  WriteLog(3,"- wersja produktu "+sData); endif;   
            else
             svVersion = "";
             if (bLog) then  WriteLog(3,"- brak klucza wersji produktu "); endif;   
            endif;
                         
            sValue="InstallLocation";                                   
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              if (bLog) then  WriteLog(3,"- ścieżka instalacji "+sData); endif;          
              svPath = sData;
              bResult = TRUE;
            else
              if (bLog) then  WriteLog(3,"- brak klucza ścieżki instalacyjne "); endif;   
            endif;
                        
            sValue="InstallDate";                                   
            if (RegDBGetKeyValueEx( sKey, sValue, nType, sData, nSize )==0) then
              if (bLog) then  WriteLog(3,"- data instalacji "+sData); endif;                                
              bResult = TRUE;
            else
              if (bLog) then  WriteLog(3,"- brak klucza daty instalacji "); endif;   
            endif;
          endif;
        endif;   
                 
        ListSetIndex(listSubKeys, LISTNEXT);
      endfor;
         
    else
      if (bLog) then  WriteLog(2,"- brak listy zainstalowanych produktow GUID"); endif;   
    endif;
     
   else
     if (bLog) then  WriteLog(2,"- błąd odczytu rejestru"); endif;   
   endif;           

  return bResult;         
end;

Oprócz ścieżki instalacyjnej (Path) , funkcja zwraca nazwę produktu (Name) i wersję (Version)

Walidacja numeru Dowodu Osobistego w c#

Funkcja walidująca numer dowodu osobistego w c# wraz z formatowaniem.
Funkcja oparta o sumę kontrolną

/// <summary>
/// Weryfikacja Nr Dowowdu Osobistego
/// </summary>
/// <param name="szNR">Nr Dowodu</param>
/// <param name="retFormated">Czy zwracać numer w postaci sformatowanej</param>
/// <returns>true/false</returns>
public static bool ValidateDO(ref string szNR, bool retFormated = true)
{
    byte[] tab = new byte[9] { 7, 3, 1, 9, 7, 3, 1, 7, 3 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 };
          
    bool bResult = false;
    int sumcontrol = 0;
    int sum = 0;

    szNR = szNR.Trim().Replace(" ", "");
           
    if (szNR.Length == 9)
    {               
        byte b;
               
        for (int i = 0; i < 3; i++)
        {
            b = Convert.ToByte(szNR[i]);
            if (b < 65 || b > 90) return false;
        }
        for (int i = 3; i < 9; i++)
        {
            b = Convert.ToByte(szNR[i]);
            if (b < 48 || b > 57) return false;
        }
               
        sumcontrol = Convert.ToInt32(szNR[3].ToString());

        for (int i = 0; i < 9; i++)
        {
            if (i < 3)
            {
                sum += (Convert.ToByte(szNR[i]) - 55) * tab[i];
            }
            else
            {
                sum += Convert.ToInt32(szNR[i].ToString()) * tab[i];
            }
        }

        bResult = ((sum % 10) == 0);

    }
    else return false;

    if (bResult && retFormated)
    {
        szNR = szNR.Insert(3, " ");                               
    }

    return bResult;
}

Walidacja numeru konta bankowego w c#

Poniżej przedstawiam funkcję walidującą numer konta bankowego zarówno przyjętego w Polsce 26 i 28 znakowy.
Funkcja może zwrócić podany numer w postaci sformatowanej tj ze spacjami.

/// <summary>
/// Walidacja numeru bankowego
/// </summary>
/// <param name="szNR">weryfikowany numer</param>
/// <param name="retFormated">Czy zwracać numer w postaci sformatowanej</param>
/// <returns>true/false</returns>
public static bool ValidateIBAN_NRB(ref string szNR, bool retFormated = true)
{
    bool bResult = false;

    szNR = szNR.Trim()
                .Replace(" ", "")
                .Replace("-", "");
          
    if (szNR.Length == 26 || szNR.Length == 28)
    {
        string nr = szNR;
        if (nr.Length == 26)
        {
            nr = (nr +"PL"+ nr.Substring(0, 2)).Remove(0, 2);
        }
        else
        {
            nr = (nr + nr.Substring(0, 4)).Remove(0, 4);
        }

        nr = nr.Replace("P", "25").Replace("L", "21");

        String nr6 = nr.Substring(0, 6);
        String nr12 = nr.Substring(6, 6);
        String nr18 = nr.Substring(12, 6);
        String nr24 = nr.Substring(18, 6);
        String nr30 = nr.Substring(24);

        int r = Convert.ToInt32(nr6) % 97;
        nr12 = (r > 0 ? r.ToString() : "") + nr12;
        r = Convert.ToInt32(nr12) % 97;
        nr18 = (r > 0 ? r.ToString() : "") + nr18;
        r = Convert.ToInt32(nr18) % 97;
        nr24 = (r > 0 ? r.ToString() : "") + nr24;
        r = Convert.ToInt32(nr24) % 97;
        nr30 = (r > 0 ? r.ToString() : "") + nr30;               

        bResult = (Convert.ToInt32(nr30) % 97 == 1);
    }
    else return false;

    if (bResult && retFormated)
    {
        if (szNR.Length==26)
        {
            szNR = szNR.Insert(22, " ").Insert(18, " ").Insert(14, " ").Insert(10, " ").Insert(6, " ").Insert(2, " ");
        }
        else
        {
            szNR = szNR.Insert(24, " ").Insert(20, " ").Insert(16, " ").Insert(12, " ").Insert(8, " ").Insert(4, " ");
        }
    }

    return bResult;
}

Walidacja numeru Regon w c#

Funkcja walidująca numer Regon w c# zarówno 9-cio jak i 14 cyfrowy.
Walidacja na podstawie sumy kontrolnej jak oraz długości ciągu cyfr.
Funkcja zwrac true w przypadku poprawnego numeru

public static bool ValidateRegon(ref string szRegon)
{
    byte[] tab8 = new byte[8] { 8, 9, 2, 3, 4, 5, 6, 7 };
    byte[] tab13 = new byte[13] { 2, 4, 8, 5, 0, 9, 7, 3, 6, 1, 2, 4, 8 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 };
    bool bResult = false;
    int suma = 0;
    int sumcontrol = 0;

    szRegon = szRegon.Trim();

    if ((szRegon.Length == 9)||(szRegon.Length==14))
    {
        foreach (char l in szRegon)
        {
            byte b = Convert.ToByte(l);
            if (Array.IndexOf(tablicz, Convert.ToByte(l)) == -1) return false;
        }

        sumcontrol = Convert.ToInt32(szRegon[(szRegon.Length==9)?8:13].ToString());

        for (int i = 0; i < ((szRegon.Length==9)?8:13); i++)
        {
            suma += ((szRegon.Length==9)?tab8[i]:tab13[i]) * Convert.ToInt32(szRegon[i].ToString());
        }

        bResult = ( (((suma % 11)!=10)?(suma % 11):0) == sumcontrol);
    }
    else return false;
          
    return bResult;
}

Walidacja numeru NIP w c#

Funkcja walidująca numer NIP w c# wraz z formatowaniem.

/// <summary>
/// Walidacja NIP
/// </summary>
/// <param name="szNIP"></param>
/// <param name="retFormated"> Zwracany NIP jest w postaci sformatowanej</param>
/// <returns>zwraca true/false</returns>

public static bool ValidateNIP(ref string szNIP, bool retFormated = true)
{
    byte[] tab = new byte[9] { 6, 5, 7, 2, 3, 4, 5, 6, 7 };
    byte[] tablicz = new byte[] { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 };
    bool bResult = false;
    int suma = 0;
    int sumcontrol = 0;

    szNIP = szNIP.Replace("-", "");
    szNIP = szNIP.Trim();

    if (szNIP.Length == 10)
    {
        foreach (char l in szNIP)
        {
            byte b = Convert.ToByte(l);
            if (Array.IndexOf(tablicz, Convert.ToByte(l)) == -1) return false;
        }

        sumcontrol = Convert.ToInt32(szNIP[9].ToString());

        for (int i = 0; i < 9; i++)
        {
            suma += tab[i] * Convert.ToInt32(szNIP[i].ToString());
        }

        bResult = ((suma % 11) == sumcontrol);
    }
    else return false;

    if (bResult && retFormated)
    {
        szNIP = szNIP.Insert(8, "-")
                        .Insert(6, "-")
                        .Insert(3, "-");              
    }

    return bResult;
}

Walidacja numeru Pesel w C#

Przedstawiam funkcje walidującą numer PESEL.
Funkcja sprawdza sumę kontrolną numeru, długość oraz logiczność.
Zakres sprawdzanych numerów dat w Peselu od 1800 do 2200 (w przybliżeniu)
Zwraca true - w przypadku poprawnego numeru.

public static bool ValidatePesel(ref string szPesel)
{           
byte[] tab = new byte[10] { 9, 7, 3, 1, 9, 7, 3, 1, 9, 7 };
byte[] tablicz = new byte[] {48,49,50,51,52,53,54,55,56,57};
bool bResult = false;
int suma = 0;
int sumcontrol = 0;
               
szPesel = szPesel.Trim();

if (szPesel.Length == 11)
{
    foreach (char l in szPesel)
    {
        byte b = Convert.ToByte(l);
        if (Array.IndexOf(tablicz,Convert.ToByte(l)) == -1) return false;
    }
              
    sumcontrol = Convert.ToInt32(szPesel[10].ToString());

    for (int i = 0; i < 10; i++)
    {
        suma += tab[i] * Convert.ToInt32(szPesel[i].ToString());
    }

    bResult = ((suma % 10) == sumcontrol); 
               
    if (bResult)
    {
        int rok = 0;
        int mies = 0;
        int dzien = Convert.ToInt32(szPesel[4].ToString()) * 10 + Convert.ToInt32(szPesel[5].ToString());

        if (szPesel[2] == '0' || szPesel[2] == '1')
        {
            rok = 1900;
            mies = Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString());
        }
        else if (szPesel[2] == '2' || szPesel[2] == '3')
        {
            rok = 2000;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString()) - 20);
        }
        else if (szPesel[2] == '4' || szPesel[2] == '5')
        {
            rok = 2100;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString()) - 40);
        }
        else if (szPesel[2] == '6' || szPesel[2] == '7')
        {
            rok = 2200;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString())-60);
        }
        else if (szPesel[2] == '8' || szPesel[2] == '9')
        {
            rok = 1800;
            mies = (Convert.ToInt32(szPesel[2].ToString()) * 10 + Convert.ToInt32(szPesel[3].ToString())-80);
        }
        rok += Convert.ToInt32(szPesel[0].ToString()) * 10 + Convert.ToInt32(szPesel[1].ToString());
        String szDate = rok.ToString() + "-" + (mies < 10 ? "0" + mies.ToString() : mies.ToString()) + "-" + (dzien < 10 ? "0" + dzien.ToString() : dzien.ToString());
        DateTime dt;
        bResult = DateTime.TryParse(szDate, out dt);
    }
}
else return false;
           
return bResult;
}

Weryfikacja numeru pesel w MFC C++

Dzisiaj prezentuję funkcję weryfikującą numer Pesel.
Funkcja sprawdza zgodność numerów pesel z zakresu 1800 - 2200 roku (w przybliżeniu).
Weryfikowana jest suma kontrolna oraz logika zapisu samego numeru pesel.
Funkcja zwraca true - jeśli numer pesel jest poprawny, false jeśli błędny.

BOOL CheckPesel(CString a_Pesel)
{
    BOOL res=false;
    BOOL sumResult = false;
    int suma = 0;
    int tabSum[] = {1, 3, 7, 9, 1, 3, 7, 9, 1, 3};
    CString mDate = "";

    if(a_Pesel.GetLength() > 0)
    {
        for(int i = 0; i < 10; i++)
        {
            suma += tabSum[i] * stoi(a_Pesel[i]);
        }

        if ((suma % 10) == 0)
            sumResult = ((suma % 10) == stoi(a_Pesel[10]));
        else
            sumResult = ( (10 - (suma % 10)) == stoi(a_Pesel[10]));
    }

    if(sumResult){
        int year = 0;
        int month = 0;
        int day = stoi(a_Pesel.Mid(4,2));   

        if(a_Pesel[2] == '0' || a_Pesel[2] == '1')
        {
            year = 1900;
            month = stoi(a_Pesel[2]) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '2' || a_Pesel[2] == '3')
        {
            year = 2000;
            month = stoi(a_Pesel[2] - 20) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '4' || a_Pesel[2] == '5')
        {
            year = 2100;
            month = stoi(a_Pesel[2] - 40) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '6' || a_Pesel[2] == '7')
        {
            year = 2200;
            month = stoi(a_Pesel[2] - 60) * 10 + stoi(a_Pesel[3]);
        }else if (a_Pesel[2] == '8' || a_Pesel[2] == '9')
        {
            year = 1800;
            month = stoi(a_Pesel[2] - 80) * 10 + stoi(a_Pesel[3]);
        }

        year += stoi(a_Pesel[0]) * 10 + stoi(a_Pesel[1]);
        mDate = itos(year) + "-" + itos(month) + "-" + itos(day);
        COleDateTime tm;
        res=tm.ParseDateTime(mDate);

    }else{
        AfxMessageBox("Nieprawidłowy numer Pesel");
        return false;
    }

    return res;
}