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

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

Восстановить пароль Регистрация
 
one.inside
 Аватар для one.inside
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 50
23.01.2012, 15:35     Перевод из Delphi в c++ #1
Помогите перевести код в с++
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.
Если нужно могу заплатить..
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.01.2012, 15:35     Перевод из Delphi в c++
Посмотрите здесь:

Перевод из Delphi в C++ C++
Перевод Turdo Delphi в C++ C++
Перевод из delphi в c++ C++
перевод из Delphi в Builder C++
C++ Перевод на С++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
dimcoder
Полярный
 Аватар для dimcoder
449 / 422 / 66
Регистрация: 11.09.2011
Сообщений: 1,108
23.01.2012, 16:04     Перевод из Delphi в c++ #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;
}
one.inside
 Аватар для one.inside
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 50
23.01.2012, 16:39  [ТС]     Перевод из Delphi в c++ #3
dimcoder, Спасибо,большое начало положено)
dimcoder
Полярный
 Аватар для dimcoder
449 / 422 / 66
Регистрация: 11.09.2011
Сообщений: 1,108
23.01.2012, 17:39     Перевод из Delphi в c++ #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.
Yandex
Объявления
23.01.2012, 17:39     Перевод из Delphi в c++
Ответ Создать тему
Опции темы

Текущее время: 17:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru