ShowMessage("Project Enigma");
    Label4->Caption = "";
    Label5->Caption = "";
    AnsiString kluc = InputBox("Zadajte váš klúč","klúč","");
    AnsiString str = InputBox("Zadajte text, ktorý chcete zasifrovat","text","");
    AnsiChar c;
    AnsiString sifra;
    int j;
    int k;
    //START Sifrovanie
    ofstream f;
    f.open("sifra-kluc.txt");
    for (int i = 0; i < kluc.Length(); i++) {
        j = 1;
        k = 1;
        while ( j <= str.Length() ) {
            if ( kluc.Length() == j )
                k = 1;
            c = str[j]+kluc[k];
            sifra += c;
            j++;
            k++;
        }
        str = sifra;
        sifra = "";
    }
    for (int i = 1; i <= str.Length(); i++) {
        f.put(str[i]);
    }
    Label4->Caption = Label4->Caption + str;
    f.close();
    //END Sifrovanie
    //START Desifrovanie
    ofstream g;
    g.open("desifra-kluc.txt");
    for (int i = 0; i < kluc.Length(); i++) {
        j = 1;
        k = 1;
        while ( j <= str.Length() ) {
            if ( kluc.Length() == j )
                k = 1;
            c = str[j]-kluc[k];
            sifra += c;
            j++;
            k++;
        }
        str = sifra;
        sifra = "";
    }
    for (int i = 1; i <= str.Length(); i++) {
        g.put(str[i]);
    }
    Label5->Caption = Label5->Caption + str;
    g.close();
    //END Desifrovaniex