C++ in Delphi -- Knacknuss

[hedie]

Hallo

Ich möchte diesen C++ Code in Delphi Code umwandeln...

Ich habe zu wenig erfahrung in C++ um dies aleine bewerkstelligen zu können...


Wenn mir jemand detailiert und einfach erklären könnte, was der code macht dan
würd ich den rest wahrscheinlich aleine schaffenn...

Ich hoffe ihr könnt mir helfen

Liebe Grüsse
Claudio

Code:

void CCrackme1Dlg::OnCheck()
{
   UpdateData(TRUE);
   CString Hex1,Hex2,Hex3,Hex4,ASCII1,ASCII2,ASCII3,ASCII4;
   CString Final_1, Final_2, Final_3, Final_4, Final_1f, Final_2f, Final_3f, Final_4f, Final_1ff, Final_2ff, Final_3ff, Final_4ff, Final;
   int Länge = mstr_Name.GetLength();

   int zahl = 0;
   int checkserial = ((mstr_Name[zahl])*(2,8));
   int serial = (checkserial * 5);
   int serial_1 = 1;
   int serial_2 = 1;
   int serial_3 = 1;
   int serial_4 = 1;

   // ASCII-Wert
   for (zahl; zahl <= Länge; zahl++)
   {
      checkserial = ((mstr_Name[zahl])*(2,8));
      serial += checkserial;
   }
   ASCII1.Format("%d",serial);
   ASCII2.Format("%d",(serial*2));
   ASCII3.Format("%d",(serial*3));
   ASCII4.Format("%d",(serial*4));

   // Hex-Wert
   Hex1.Format("%x",serial);
   Hex2.Format("%x",(serial*2));
   Hex3.Format("%x",(serial*3));
   Hex4.Format("%x",(serial*4));

   // 1-Block
   Final_1f = ASCII1[0];
   Final_2f = Hex1[1];
   Final_3f = ASCII1[2];
   Final_4f = Hex1[3];
   Final_1ff = Final_1f + Final_2f + Final_3f + Final_4f;

   // 2-Block
   Final_1f = ASCII2[0];
   Final_2f = Hex2[1];
   Final_3f = ASCII2[2];
   Final_4f = Hex2[3];
   Final_2ff = Final_1f + Final_2f + Final_3f + Final_4f;

   // 3-Block
   Final_1f = ASCII3[0];
   Final_2f = Hex3[1];
   Final_3f = ASCII3[2];
   Final_4f = Hex3[3];
   Final_3ff = Final_1f + Final_2f + Final_3f + Final_4f;

   // 4-Block
   Final_1f = ASCII4[0];
   Final_2f = Hex4[1];
   Final_3f = ASCII4[2];
   Final_4f = Hex4[3];
   Final_4ff = Final_1f + Final_2f + Final_3f + Final_4f;

   Final = Final_1ff + "-" + Final_2ff + "-" + Final_3ff + "-" + Final_4ff; 

   if (mstr_Serial == Final)
   {
      MessageBox(_T("Der Serial ist richtig!"),_T("Geschafft"),NULL);
   }
   else
   {
      MessageBox(_T("Der Serial ist falsch!"),_T("Error"),NULL);
   }
}