Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Aik@
Сообщений: n/a
#1

перевод с delphi на C++ - C++

30.04.2011, 21:46. Просмотров 390. Ответов 0
Метки нет (Все метки)

Здравтсвуйте!я пишу программу по криптографической защите информации по методу гронсфельда.Я пыталась переводить на С++,но не получилось. Подскажите пожалуйста как записать правильно.Я нашла листинг в delphi, просто нужно перевести его на С++.После шифрования, шифровку надо будет обратно раскодировать.
C++
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
?програмка шифрующая текст 
 program Kriptograf; 
 function Shifr ( Kod, K : string ): string;         
 var i,t,d : integer;                                             
 begin for i:=1 to length (Kod) do begin 
 d:=ord (Kod[i]);                                            
 t:= (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0'))); 
 if t>=256 then dec (T,256); 
 Kod[i]:=Chr(t); 
 end; 
 Shifr := Kod; 
 end; 
 var 
 a,k,s:string; 
 
 Begin 
 writeln('vvedite slovo'); 
 readln(a); 
 writeln('vvedite klu4'); 
 readln(k); 
 s:= Shifr(a,k); 
 writeln('s= ', Shifr (a, k)); 
 readln; 
 End. 
 
 расшифровывающая 
 program Kriptograf; 
 
 function DeShifr (DeKod,K:string):string; 
 var i,t:integer; 
 begin 
 for i:=1 to length(DeKod) do begin 
 t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0'))); 
 
 if t<0 then Inc(t,256); 
 DeKod[i]:=Chr(t); 
 end; 
 DeShifr:=DeKod; 
 end; 
 
 var 
 a,k,s:string; 
 
 Begin 
 writeln('vvedite zashifrovannui text'); 
 readln(a); 
 writeln('vvedite klu4'); 
 readln(k); 
 s:= DeShifr(a ,k ); 
 
 writeln('s= ', DeShifr (a,k)); 
 readln; 
 End.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2011, 21:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод с delphi на C++ (C++):

Перевод из Delphi в c++ - C++
Помогите перевести код в с++ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Перевод из Delphi в C++ - C++
Есть код на Делфи помогите пожалуйста перевести его в С++Bulder. ...... const MapFName = 'D:\MIKHAILP\DOCUM\Projects\ISTC_robot ...

Перевод с Delphi на С++ - C++
Всем привет. Ребята помогите перевести код проекта с delphi на с++. Вот проект

Перевод из delphi в c++ - C++
Помогите пожалуйста перевести программку из delphi в c++ function ReflectStr(str:string):string; var i:integer; begin for i:=0...

Перевод кода с Delphi на C++ - C++
procedure TForm2.Edit1Change(Sender: TObject); begin ADOTable1.Filtered:=false; ADOTable1.Filter:='Фамилия LIKE...

Перевод Turdo Delphi в C++ - C++
Нужно перевести программу, написанную на языке Turdo Delphi в C++. Вот сам код: program PT1; {$Apptype Console} uses SysUtils; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2011, 21:46
Привет! Вот еще темы с ответами:

перевод из Delphi в Builder - C++
type Point = record color : TColor; x, y : Integer; end; type PointArray = array of array of Point; var pa:...

Работа со строками - перевод с Delphi в С++ - C++
Доброго времени суток! Проблема с переводом кода в С++. Сам код в Delphi: var FM : TextFile; i: Integer; ...

Перевод кода с Delphi, деление нацело - C++
во общем есть условие { if ((y4*x3 div 10).quot==4) if (((100*x1+10*x2+x3)*y1 div 100)&gt;0)&amp;&amp;(((100*x1+10*x2+x3)*y1...

Перевод из Delphi (Алгоритм нахождения наибольшего паросочетания в двудольном графе) - C++
UNIT1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru