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

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

Войти
Регистрация
Восстановить пароль
 
one.inside
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 50
#1

Перевод из Delphi в c++ - C++

23.01.2012, 15:35. Просмотров 838. Ответов 3
Метки нет (Все метки)

Помогите перевести код в с++
Delphi
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, md5, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }           
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses MainUnit;
 
{$R *.dfm}
 
//Сетевое имя компьютера
function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;
 
//Имя пользователя
function GetUserFromWindows: string;
var
  UserName: string;
  UserNameLen: Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName, 1, UserNameLen - 1)
  else
    Result := 'Unknown';
end;
 
//Серийный номер диска C:
function GetSerialNum: string;
var
  SerialNum: DWORD;
  a, b: DWORD;
  Buffer: array[0..255] of char;
begin
result := '';
try
  GetVolumeInformation(PChar('c:\'), Buffer, sizeof(Buffer), @SerialNum, a, b,
    nil, 0);
finally
  result := IntToStr(SerialNum);
end;
end;
 
function StringToHex(str1,Separator:String):String;
var
  buf:String;
  i:Integer;
begin
  buf:='';
  for i:=1 to Length(str1) do begin
    buf:=buf+IntToHex(Byte(str1[i]),2)+Separator;
  end;
  Result:=buf;
end;
 
function GetSystemInfoAll: String;
var
 siSysInfo: TSystemInfo;
begin
 GetSystemInfo(siSysInfo);
 with siSysInfo do begin
   Result := IntToStr(dwActiveProcessorMask) +
             IntToStr(dwPageSize) +
             IntToStr(wReserved) +
             IntToStr(dwNumberOfProcessors) +
             IntToStr(dwProcessorType) +
             IntToStr(dwAllocationGranularity) +
             IntToStr(wProcessorArchitecture) +
             IntToStr(wProcessorLevel) + 
             IntToStr(wProcessorRevision);
 end;
end;
 
//Генерируем серийник
function getSerial:string;
begin
  Result := StringToHex((GetComputerNetName + GetUserFromWindows + GetSerialNum + GetSystemInfoAll),'');
end;
 
//Генерируем ключ
function getKey(Serial: string):string;
begin
  Result := MD5DigestToStr(MD5String(Serial));
  Result := MD5DigestToStr(MD5String(Result));
  Result := MD5DigestToStr(MD5String(Result));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='8C92F20000B8CD82A2A586D90998761D';
if Edit1.Text = getKey(getSerial) then begin
Hide;
ShowMessage('Cheat Engine зарегистрирован!');
MainForm.Show;
end else begin
Hide;
ShowMessage('Cheat Engine не зарегистрирован! Чтобы приобрести лицензию обратитесь в Skype:one.inside либо в Skype:darkking5577');
Close;
end;
end;
 
end.
Если нужно могу заплатить..
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.01.2012, 15:35
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Delphi в c++ (C++):

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

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

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

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

Перевод кода с 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; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
dimcoder
Полярный
462 / 434 / 68
Регистрация: 11.09.2011
Сообщений: 1,132
23.01.2012, 16:04 #2
Ну пожалуй, я начну:
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
#include <windows.h>
#include <iostream>
#include <cstdlib>
 
using namespace std;
 
int GetUserFromWindows(char UserName[])
{
  char Result[30];
  DWORD UserNameLen;
  UserNameLen = 255;
  if (GetUserName(UserName, &UserNameLen))
     return 0;  //Нет ошибок
  else
     return 1;  //Ошибка
}
 
int main ()
{
    char result[30];
    
    cout << GetUserFromWindows(result) << " = " << result << endl;
    
    system("PAUSE > NULL");
 
    return 0;
}
1
one.inside
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 50
23.01.2012, 16:39  [ТС] #3
dimcoder, Спасибо,большое начало положено)
0
dimcoder
Полярный
462 / 434 / 68
Регистрация: 11.09.2011
Сообщений: 1,132
23.01.2012, 17:39 #4
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
#include <windows.h>
#include <iostream>
#include <cstdlib>
 
using namespace std;
 
int GetComputerNetName(char CompName[])
{
  DWORD size;
  size = 256;
  if (GetComputerName(CompName, &size))
    return 1;
  else
    return 0;
}
 
int GetUserFromWindows(char UserName[])
{
  char Result[30];
  DWORD UserNameLen;
  UserNameLen = 255;
  if (GetUserName(UserName, &UserNameLen))
     return 1; //Нет ошибок
  else
     return 0; //Ошибка
}
 
int main ()
{
    char userName[30];
    char computerName[30];
    
    if (GetUserFromWindows(userName))
       cout << "Computer name = " << userName << endl;
    if (GetComputerNetName(computerName))
       cout << "Net name = "<< computerName << endl;
    
    system("PAUSE > NULL");
 
    return 0;
}
С блоками try...catch особо дела не имел (в функции getSerialNum), да и хз что такое nil.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.01.2012, 17:39
Привет! Вот еще темы с ответами:

Работа со строками - перевод с 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,...

Перевод из Delphi 7 в Delphi XE2 - Delphi
Вообщем Этот код на delphi 7 спокойно компилируется: Function ResolveIP(HostName: String): String; Type tAddr = Array Of...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
23.01.2012, 17:39
Ответ Создать тему
Опции темы

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