Τώρα είναι Παρ 29 Μαρ 2024 03:19 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Κρυπτογράφηση
ΔημοσίευσηΔημοσιεύτηκε: Κυρ 14 Ιαν 2007 05:07 pm 
'Ενα απλό πρόγραμμα κρυπτογράφησης.Ο τύπος κρυπτογράφησης είναι από τους πιο απλούς που υπάρχουν και έτσι είναι εύκολο να τον σπάσει κανείς.

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ 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
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


Κορυφή
  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 13 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: