0 / 0 / 0
Регистрация: 10.10.2015
Сообщений: 1
1

Аутентификация пользователя (Pascal -> C)

10.10.2015, 23:28. Показов 965. Ответов 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
var a,b,c,pass,found:string;
 
procedure wwords();
begin
writeln('Write 3 words:');
repeat
readln(a);
if a='' then writeln('ERROR.Try again');
until (a<>'');//1
repeat
readln(b);
if b='' then writeln('ERROR.Try again');
until (b<>'');//2
repeat
readln(c);
if c='' then writeln('ERROR.Try again');
until (c<>'');//3
end;
 
procedure fpass();
begin
found:='';
if c[1]='z' then begin found:=found+'a'; end
else begin found:=found+succ(c[1]); end;//1
if b[1]='a' then begin found:=found+'z'; end
else begin found:=found+pred(b[1]); end;//2
if length(c) mod 2 =1 then begin
if c[(length(c)+1) div 2]='z' then begin found:=found+'a'; end
else begin found:=found+succ(c[(length(c)+1) div 2]); end
end
else begin
if c[length(c) div 2]='a' then found:=found+'z'
else found:=found+pred(c[length(c) div 2]);
end;//3
if (length(a)+length(b)-2>0) then begin 
found:=found+chr(97+((length(a)+length(b)-2-1) mod 26));
end; //4
writeln('Pass:',found);
end;
 
procedure wpass();
begin
writeln('Enter Password:');
readln(pass);
 
if pass=found then writeln('Pass is correct!')
else writeln('Pass is wrong!');
end;
 
begin
wwords;
fpass;
wpass;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2015, 23:28
Ответы с готовыми решениями:

Аутентификация пользователя
Помогите с программой, как сделать не могу сообразить... В программе должны находится имена...

Аутентификация пользователя
Добрый день! подскажите пожалуйста , где может быть ошибка: дана база данный пользователей (логины...

Jetty, аутентификация пользователя
Добрый день уважаемые фоумчане, прошу помощь т.к. зашёл в тупик. Создал форму авторизации на...

Аутентификация пользователя firebird 2.1
Добрый день! возникла дурацкая ситуация, в прямом смысле слова. есть БД на firebird 2.1. открыть...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2015, 23:28

Аутентификация пользователя Yii
Здравствуйте уважаемые форумчане. Только начал изучать Yii. Очень путаюсь, но желаю разобраться....

аутентификация пользователя через header()
Подскажите. пожалуйста, почему может не работать аутентификация пользователя через header()... У...

Аутентификация андроид пользователя сервером
Приветствую, хочу написать небольшое приложение для андроид которое получает ответ от сервера....

Аутентификация пользователя роутером - ip или ad?
Как считаете? Как лучше аутентицировать пользователей для доступа в интернет? По ip или по логину...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru