ΠΡΟΓΡΑΜΜΑ encrypt
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: text,c
ΑΚΕΡΑΙΕΣ: len,i,temp
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '[e] for encrypt / [d] for decrypt'
ΔΙΑΒΑΣΕ c
ΜΕΧΡΙΣ_ΟΤΟΥ (c = 'e' η c = 'd')
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΑΝ c = 'e' ΤΟΤΕ
ΔΙΑΒΑΣΕ text
len <-- ΜΗΚΟΣ_ΧΑΡ(text)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ len
ΑΝ i MOD 2 = 0 ΤΟΤΕ
temp <-- ΣΕΙΡΑ_ΧΑΡ(text[i]) + 2
ΑΛΛΙΩΣ
temp <-- ΣΕΙΡΑ_ΧΑΡ(text[i]) + 1
ΤΕΛΟΣ_ΑΝ
text[i] <-- ΧΑΡ(temp)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ text
ΑΛΛΙΩΣ
ΔΙΑΒΑΣΕ text
len <-- ΜΗΚΟΣ_ΧΑΡ(text)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ len
ΑΝ i MOD 2 = 0 ΤΟΤΕ
temp <-- ΣΕΙΡΑ_ΧΑΡ(text[i]) - 2
ΑΛΛΙΩΣ
temp <-- ΣΕΙΡΑ_ΧΑΡ(text[i]) - 1
ΤΕΛΟΣ_ΑΝ
text[i] <-- ΧΑΡ(temp)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ text
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ