|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.08.2014, 23:48 | #1 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
Требуется написать программу шифрования строковых переменных и ключ от шифра пользователь вводил сам
Всем добрый вечер. Вот сегодня вечером я решил продолжить моё самообучение Паскаля и вот мне неожиданный сюрприз от него...
На данный момент я завершил изучение шифрования символов и строковых перемененных.. И вот в конце главы "Домашняя работа". Требуется написать программу шифрования строковых переменных и чтобы ключ от шифра пользователь вводил сам. И вот когда я дописал программу и решил её проверить получаю, что моя программа ничего не делает... Она просто возвращает мне мой же текст. Ни шифрование, ни дешифровка не срабатывают. А во время пошаговой проверки мне выдают странную ошибку Run Time Error 4209155 Так же вместе с данной ошибкой внизу появляется окошко "Call Stack" и в нём: Error address $00000000 027BF1B8 SYSTEM_HANDLEERRORADDRFRAME$LONGINT $$POINTER$POINTER() 027BF1B8 SYSTEM_HANDLEERRORFRAME$LONGINT$POI NTER() 027BF1B8 U_SYSTEM_INPUT() Также наблюдается странное поведение самой среды... Никакой другой файл кроме этого она больше не хочет проверять пошагово и всё время открывает один и тот же файл. Если кто встречался с подобной проблемой помогите... |
23.08.2014, 23:53 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Не плохо было бы увидеть код..
|
24.08.2014, 08:36 | #3 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
Простите я только зарегистрировался на этом сайте и не знаю как перенести сюда код. Обычным копирование не получается, а по другому я не знаю как.
http://saveimg.ru/thumbnails/24-08-1...05ef7f17a2.png http://saveimg.ru/thumbnails/24-08-1...eddaa5198b.png http://saveimg.ru/thumbnails/24-08-1...d134efd224.png Простите как смог) Последний раз редактировалось Stilet; 24.08.2014 в 09:20. |
24.08.2014, 09:07 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
24.08.2014, 09:12 | #5 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
|
24.08.2014, 09:20 | #6 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
24.08.2014, 09:24 | #7 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
Не знаю почему прошлые ссылки не работают.. Но вот попробовал так сделать.
|
24.08.2014, 09:27 | #8 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
На втором скрине, на моменте Readln(S) Происходит ошибка которую я описывал.
|
24.08.2014, 09:42 | #9 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
24.08.2014, 09:46 | #10 |
Пользователь
Регистрация: 23.08.2014
Сообщений: 13
|
Function CryptCh(arg : Char; key : integer):Char;
Var x:integer; Begin x:=ord(arg)+key; If x>255 Then x:=x-256+32; CryptCh:=Char(x); End; Function EnCryptCh(arg: Char; key : integer):Char; Var x : integer; Begin x:=ord(arg)+key; If x<32 Then x:=x-255+32; EnCryptCh:=Char(x); End; Procedure CryptStr(var arg : string ; key : integer); Var x:integer; Begin For x:=1 to Length(arg) do arg[x]:=CryptCh(arg[x],key); End; Procedure EnCryptStr(var arg : string; key : integer); Var x : integer; Begin For x:=1 to Length(arg) do arg[x]:=EnCryptCh(arg[x],key); End; Var key,x,y:integer; arg : string; Begin Repeat Writeln('Џ®¦*©«гбв® ўўҐ¤ЁвҐ Є«оз Є иЁдаг : '); Readln(y); key:=y; Writeln('‚ўҐ¤ЁвҐ бва®Єг: '); Readln(arg); Writeln('^o^ —⮦Ґ ¬*Ґ ᤥ«*вм б нв®© бва®Є®© '+' 1 - §*иЁда®ў*вм, '+ ' 2 - ¤ҐиЁда®ў*вм, '+ ' Їа®зҐҐ - ўл©вЁ '); Readln(x); Case X of 1: CryptStr(arg,key); 2: EnCryptStr(arg,key); Else Break; End; Writeln(arg); Readln; Until False End. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С++ Напишите программу так, чтобы пользователь вводил действие, необходимое для выполнения: шифровать или расшифровать текст (люб | alex1994max | Помощь студентам | 1 | 09.07.2013 15:39 |
Aлгоритм шифрования строковых литералов. | ATAMAN200 | Общие вопросы C/C++ | 2 | 24.09.2010 12:41 |
Как написать программу шифрования методом Атбаш??? | Zempery | Помощь студентам | 14 | 25.11.2009 05:53 |
Помогите пожалуйста Написать программу Шифрования по методу гомирования | anton_m207 | Помощь студентам | 1 | 16.04.2009 10:23 |