Шифрование текстов

20.05.2015, 17:57. Показов 469. Ответов 0

Метки нет (Все метки)

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

Всем привет!!!
прога для шифрования слов и текстов в Паскале

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program kodirovka;
 
function EncDec(S : String) : String;
var
  i, j : Integer;
  Ct, C1, C2 : Byte;
begin
  for i := 1 to Length(S) div 2 do begin
    j := i * 2;
    C1 := Ord(S[j - 1]);
    C2 := Ord(S[j]);
    Ct := C1;
    C1 := (C1 and $F0) or (C2 and $0F);
    C2 := (C2 and $F0) or (Ct and $0F);
    S[j - 1] := Chr(C1);
    S[j] := Chr(C2);
  end;
  EncDec := S;
end;
 
var
  S : String;
begin
  repeat
    Writeln('Задайте текст:');
    Readln(S);
 
    Writeln('Закодированный текст:');
    S := EncDec(S);
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

20.05.2015, 17:57

Ответы с готовыми решениями:

Шифрование двух текстов
Не могу понять,как составить программу для шифрования текста. Суть в том,что изначально есть какой то текст,пользователь вводит второй...

Шифрование/дешифрование текстов по принципу шифра Плейфера
Помогите, пожалуйста, написать программу для шифрования/дешифрования текстов по принципу шифра Плейфера. Большая просьба написать программу...

Шифрование и дешифрование текстов одноалфавитным методом с задаваемым смещением (от 2 до 20)
Разработать программу шифрования и дешифрования текстов реализующие следующий метод: Одноалфавитный метод с задаваемым смещением (от 2 до...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

20.05.2015, 17:57

Помогаю со студенческими работами здесь

Обработка текстов
Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями....

записи(текстов.и типиз.файлы)
в исходном файле содержатся записи типа: type sl=record; fio:string; kold:byte; s_plata:real; ...

работa процедур и функций языка PASCAL для переменных строкового типа и освоить алгоритмы обработки текстов
Если во фразе «Изучения алгоритма позволяет представить микропроцессорное устройство» количество слов чётное, то расположить слова в...

Шифрование текстов с использованием афинного шифра на ассемблере
Есть код на с++. Нужно переделать так, чтобы были ассемблеровские вставки. Как можно переделать, чтобы ввод/вывод был реализован на с++, а...

Шифрование с помощью матрицы и вектора (шифрование методом аналитических преобразований)
Программисты Здравствуйте! Не могу сделать этот метод,не понимаю и все тут), хорошо бы если объясняли еще....(сам сайт готов, надо только...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

Наверх