Як написати просту програму для шифрування тексту в зображення
Результат роботи програми
Бачив тут була стаття про QR-коди, після її прочитання мені захотілося зробити свій шифрувальник :)
Він написаний на мові PascalABC, хоча можна було й інший вибрати, але мені під руку більше нічого не попало, до того ж ця мова дуже простий для освоєння.
Інструкція
1 крок
Принцип роботи програми простий: спочатку беруться по черзі всі символи з шіфруемий рядки, потім вони конвертуються в числа, наприклад a - 1, b - 2, z - 26 і тд. Потім ці числа переводяться у формат RGB, для конвертації в формат RGB потрібно три числа, значить в одному квадраті можна зашифрувати три символи. А потім вже малюється квадрат із заданим кольором.
2 крок
Перше, що потрібно зробити - це функцію конвертації символу в колір. Я її назвав "Code".
function Code (str: string): integer-
var i: integer-
begin
For i: = 1 to 26 do
begin
if Chr (96 + i) = str then Result: = i-
end;
end;
Якщо написати команду write (Code ('a')) - то на екран буде виведено код символу "а". На екрані з'явиться одиниця.
3 крок
А потім потрібно зробити функцію розбивки шіфруемий рядки і малювання кольорових квадратів.
For j: = 1 to Trunc (Length (in_str) / 3) do
begin
x: = j * 3-2-
tmpR: = round (Code (Copy (in_str, x, 1))li_lv) -
tmpG: = round (Code (Copy (in_str, x + 1,1))li_lv) -
tmpB: = round (Code (Copy (in_str, x + 2,1))li_lv) -
If debug = 1 then
begin
WriteLn (chr (39), Copy (in_str, x, 1), chr (39), '-', tmpR) -
WriteLn (chr (39), Copy (in_str, x + 1,1), chr (39), '-', tmpG) -
WriteLn (chr (39), Copy (in_str, x + 2,1), chr (39), '-', tmpB) -
WriteLn-
end-
SetBrushColor (RGB) -
Rectangle (wca, hc * a, (wc + 1)a, (hc + 1)a) -
inc (wc) -
if wc = maxw then begin wc: = 0- hc: = hc + 1 end-
end;
4 крок
Ви також можете завантажити готовий варіант програми, там є і коментарі.
https://wenicc.dq.by/downloads/shifr.pas
Якщо у вас не виявилося Паскаля, то ви можете завантажити його з офіційного сайту.
ftp://sunschool.math.rsu.ru/pub/pabc/PABCDistr.zip
Як відкрити банківську карту? Що ж таке банківська картка? Це зручність і безпеку, а також комфорт. Ну що ж, приступимо.ІнструкціяРівень складності: НескладноЩо вам знадобиться:Паспорт1 крок Ви вирішили відкрити банківську карту? Відкрити свою карту самостійно можна з 18 років.…
Як користуватися jquery? JQuery - чудова бібліотека javascript, яка робить програмування з javascript ще легше. У цій інструкції я розповім як користуватися цією бібліотекою і покажу кілька прикладів використання JQuery.ІнструкціяРівень складності: Нескладно1…
Як закодувати (зашифрувати) текст? Один із способів захисту тексту. Після кодування текст залишається текстом, але у вигляді белеберди. Для цього є програма яка кодує текст на основі вашого пароля. Програма безкоштовна і російською мовоюІнструкціяРівень складності: Легко1 крок…
Як в opera в експрес-панелі змінити зображення сайтів для швидкого доступу? Ймовірно, якщо Ви є користувачем чудового браузера Opera, то ніяк не обходиться без такої речі, як Експрес-панель? Вірно, адже вона зручна і практична. Але, напевно, вам коли-небудь, та набридали ці нудні прев'юшки сайтів в маленьких віконцях. У цій…
Як спростити копіювання даних перед перевстановлення системи Дана інструкція стане в нагоді тим, хто часто переустановлює свою багатостраждальну Windows і вже втомився вручну копіювати потрібні дані з диска C на диск D (E, F, ...) перед кожною перевстановлення.ІнструкціяРівень складності: НескладноЩо вам…
Які операції є для дійсних чисел (real) у pascal? PascalХочете дізнатися операції з числами? Тоді вам сюди! Всі мої уроки-інструкції дивіться в моєму про-файлі!ІнструкціяРівень складності: ЛегкоЩо вам знадобиться:БажанняPascal ABC або TurboPascal1 крокЯ наведу відразу приклад коду, а тому буду…
Як написати просту програму в паскаль abc. Програма для програмирования на мові паскаль.Якщо ви хочете почати програмувати, але ще нічого не знаєте про це, то вам допоможе паскаль АВС! У цій програмі легко працювати як новачкові, так і професіонала! Для початку скачайте цю програму, вона…
Як цікаво зашифрувати інформацію і розшифровувати іншу (qr code) QR codeВам коли-небудь хотілося зашифрувати інформацію, наприклад, повідомлення одному? Це можна зробити простим способом, причому розшифрувати ще легше))) Вам сподобається! Можна зашифрувати текст, посилання, номери телефонів, контакти або зробити…
Як конвертувати аудіофайл? При сучасній роботі з ПК постійно виникає необхідність у редагуванні аудіо-файлів, неважливо, що це пісня, аудіокнига, диктофонний запис або звукове повідомлення. Однією з найбільш частих операцій зі звуком - це його переконвертації в інші формати,…
Як перенести файл з iphone на комп'ютер iPhone 3GІноді потрібно перенести якийсь файл з iPhone на комп'ютер. Але за допомогою програми iTunes цього не зробити, а з самого телефону можна витягати тільки фотографії. Отже, в цій інструкції я розповім, як можна перенести музику або відео з…
Як встановити музику на ваш сайт. myflashfetish.comВстановіть власний Flash Mp3 програвач на свій сайт або блог.ІнструкціяРівень складності: Легко1 крок Заходимо на сайт https://myflashfetish.com/ І натискаємо по кнопці MP3 Playlist2 крок Ми поподали в меню вибору обкладинки і…
Як зробити скрінсейвер в стилі к / ф "матриця" за допомогою (увага!) Турбо паскаля Скрінсейвер в стилі к / ф "Матриця" можна просто завантажити з інтернету. Але якщо хочеться зробити його своїми так би мовити руками, та ще й незвичайним методом ...ІнструкціяРівень складності: Нескладно1 крокСкачайте і встановіть собі програму…
Заміна контейнера відпрацьованого чорнила в canon pixma mp110 Як зробити заміну контейнера для відпрацьованого чорнила у Canon pixma mp110? Осипов ВолодимирЗдрастуйте Володимир! Помилка «переповнення контейнера відпрацьованого чорнила» це не що інше як помилка переповнення памперсів, чи то пак прокладок…
Чим відрізняється оператор write від writeln Write і writeLn - оператори виведення, застосовувані в мові програмування Pascal (Паскаль). Всього дві букви різниці - а результат відрізняється. Обидва служать для ініціалізації звернення до процедури виведення інформації на екран, на друк або у…
Як дізнатися хостинг сайту? Хостинг - це послуга з розміщення файлів і баз даних різних сайтів на віддаленому сервері (комп'ютері), постійно підключеному до мережі інтернет і обладнаному спеціальним програмним забезпеченням. Ненадійний хостинг здатний серйозно гальмувати…
Як змінити формат відео на комп'ютері? Хто з нас не стикався з проблемою сумісності відео форматів? Напевно у вас була така ситуація, коли викачані вами фільми або кліпи не відкривалися на комп'ютері. Крім того, не так-то просто буває завантажити потрібний відеоролик в портативний…