Niestety, musi to być koniecznie Pascal, nic innego nie wchodzi w grę.
Po pewnych zabiegach udało mi się skonstruować coś takiego:
program szyfrowanie;
uses crt;
const n=250;
var
a:array[1..100,1..100] of char;
s:string[n];
k,b,c,d,e,f,g,h:integer;
begin
clrscr;
write('Podaj tekst do zaszyfrowania: ');
readln(s);
write('Podaj szerokosc kolumny: ');
readln(k);
f:=length(s);
b:=f div k + 1;
e:=0;
for c:=1 to b do
begin
writeln;
for d:=1 to k do
begin
e:=e+1;
a[c,d]:=s[e];
write(a[c,d]);
end;
end;
writeln('Oto zaszyfrowany tekst: ');
for c:=1 to k do
begin
for d:=1 to b do
write(a[d,c]);
end;
readln;
end.
O dziwo to działa, jednak brakuje mi jeszcze opcji deszyfrowania. Może mógłby ktoś coś doradzić?