Шифрование

@hlr52917 · Регистрация: 23.04.2017

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, что сделать, чтобы индекс не был вне массива. Например, ошибка выскакивает если сместить на 150

Ошибка: Unhandled Exception: System.IndexOutOfRangeException: Индекс находился вне границ массива.

Pascal

const
  b='абвгдежзиклмнопрстуфхцчшщъыьэюя ';
var
  i,j,k:Integer;
  a,c:String;
begin
  if d <= 0 then 
    d := 32 - Abs(d) mod 32;
    for i:=1 to length(a) do
      for j:=1 to length(b) do
        begin
          k:=(j-d+32) mod 31;
          if a[i]=b[j] then c:=c+b[k];
        end;  
end;

@volvo · 30.10.2017, 15:35

Сообщение от hlr52917

что сделать

Для начала - показать код, который хотя бы компилируется, а не этот огрызок.

@hlr52917 · 30.10.2017, 15:38 **[ТС]**

volvo, держи

Pascal

uses crt;
const
b='абвгдежзиклмнопрстуфхцчшщъыьэюя ';
var
a,c:string;
d,m:integer;
 
procedure Encrypt(a:string;d:integer);
var
i,j,k:integer;
begin
if d <= 0 then 
    d := 32 - Abs(d) mod 32;
for i:=1 to length(a) do
    for j:=1 to length(b) do
    begin
       k:=(j + d - 1) mod 31;
       if a[i]=b[j] then c:=c+b[k];
    end;
end;
  
begin
Write('Введите открытый текст: '); 
Readln(a);
Write('Введите значение ключа: '); 
Readln(d);
repeat
    Writeln('Выбор метода:');
    Writeln('1-Шифровать');
    //writeln('2-Расшифровать');
Readln(m);
case m of
1:Encrypt(a,d);
//2: DecryptStr(S);
else Break;
end;
Writeln(c); { печатаем результат }
until false;
end.

@volvo · 01.11.2017, 14:16

Pascal

17	k:=(j + d - 1) mod 31;

Переменная K принимает значения от 0 до 30, и при попытке обратиться к b[0] получается вылет за пределы массива. Решение - в следующей строке прибавить 1-цу:

Pascal

18	if a[i]=b[j] then c:=c+b[k + 1];

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,428 Записей в блоге: 8
	30.10.2017, 15:35	2
	Сообщение от hlr52917 что сделать Для начала - показать код, который хотя бы компилируется, а не этот огрызок. 0

	01.11.2017, 14:16

Опции темы