sifrovanie

//Uloha: Napiste program, ktorý nacita zo suboru udaje tak, ze ordinalne hodnoty znakov budu posunute o pet do prava.
void __fastcall TForm1::Button12Click(TObject *Sender)
{
    ifstream f;
    char c;
    f.open("sifra.txt");
    if (f.fail()) {
        ShowMessage("Chyba pri otvarani");
    } else {
        Label2->Caption = "";
        c = f.get() + 5;
        while ( f.good() ) {
            Label2->Caption=Label2->Caption + c;
            c = f.get() + 5;
        }
    }
    f.close();
    ofstream l;
    l.open("sifra-nova.txt");
    AnsiString str = Label2->Caption;
    if (l.fail()) {
        ShowMessage("Chyba pri otvarani");
    } else {
        for (int i = 1; i <= str.Length(); i++) {
            l.put(str[i]);
        }
    }
    l.close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button13Click(TObject *Sender)
{
    ifstream f;
    char c;
    f.open("sifra-nova.txt");
    if (f.fail()) {
        ShowMessage("Chyba pri otvarani");
    } else {
        Label3->Caption = "";
        c = f.get() - 5;
        while ( f.good() ) {
            Label3->Caption=Label3->Caption + c;
            c = f.get() - 5;
        }
    }
    f.close();
}
//---------------------------------------------------------------------------