function Code=CaesarChipher(Message,Shift)

% Skript som kodar eit ord ved hjelp av Caesars chiffer.
% Input er ordet som skal kodast, Message, og kor stort 
% alfabet-skift som skal gjerast.
% Funksjonsfila brukar to andre: CharNumConvert og NumCharConvert.
% Den første funksjonen konverterar teksten til ein vektor av tal,
% den andre gjer det motsette.
% Kodinga er implementert slik at den berre fungerar for store bokstavar
% utanom Æ, Ø og Å.

% Endre melding til tal
Narray=CharNumConvert(Message);

% Legge inn kodinga - numerisk
Narray=mod(Narray+Shift-1,26)+1;

% Endre koda melding til tekst
Code=NumCharConvert(Narray);
