Chief Delphi - Help me to convert in delphi

Chief Delphi (http://www.chiefdelphi.com/forums/index.php)

- Programming (http://www.chiefdelphi.com/forums/forumdisplay.php?f=51)

- - Help me to convert in delphi (http://www.chiefdelphi.com/forums/showthread.php?t=118194)

Help me to convert in delphi

hi guys pls help me

Help me to convert in delphi

Code:

#include <stdio.h> 

#include <stdlib.h> 

#include <memory.h> 



unsigned int    rng_vec[607]; 

unsigned int *    rng_tap = rng_vec; 

unsigned int *    rng_feed = 0; 





// 123456005883380 - 65863543 

// 21 43 65 00 85 38 83 f0 



  int v3; // r5@1 

  unsigned int v4; // r0@1 

  int v5; // r4@1 

  unsigned int v6; // r1@2 

  char *v7; // r2@2 

  unsigned int v8; // r0@3 

  int v9; // r4@3 

  unsigned int v10; // r1@4 

  signed int v11; // r0@5 

  signed int v12; // r0@5 

  int cnt; // r0@5 

  int v14; // r1@6 

  char v16[8]; // [sp+0h] [bp-20h]@1 

  char v17[8]; // [sp+8h] [bp-18h]@1 





  char Table_00[10] =       {    0,   6,   1,   8,   7,   5,   3,   2,    

9,   4}; 

  char Table_01[10] =       {    0,   2,   6,   6,   9,   5,   1,   4,    

3,   8}; 

  char Table_10[10] =       {    0,   4,   9,   2,   3,   5,   7,   8,    

1,   6}; 

  char Table_11[10] =       {    0,   8,   3,   4,   1,   5,   9,   6,    

7,   2}; 



  char Table_2[100] = {          

                  0x11, 0x5D, 0x5B, 0x5A, 0x58, 0x57, 5, 7, 9, 0x12, 

                  1, 0x45, 0x51, 0x50, 0x4E, 0x18, 0x16, 0x13, 0x1F, 

                  0x64, 2, 0x1E, 0x3C, 0x24, 0x23, 0x3F, 0x43, 0x2A, 

                  0x47, 0x63, 0xC, 0x1D, 0x44, 0x32, 0x35, 0x38, 0x2B, 

                  0x21, 0x48, 0x59, 0xF, 0x1C, 0x27, 0x37, 0x2C, 0x31, 

                  0x36, 0x3E, 0x49, 0x56, 0x55, 0x1B, 0x28, 0x2D, 0x3A, 

                  0x33, 0x30, 0x3D, 0x4A, 0x10, 0x5F, 0x4B, 0x25, 0x34, 

                  0x2F, 0x2E, 0x39, 0x40, 0x1A, 6, 0x61, 0x4C, 0x3B, 

                  0x41, 0x42, 0x26, 0x22, 0x29, 0x19, 4, 0x62, 0x46, 

                  0x14, 0x15, 0x17, 0x4D, 0x4F, 0x52, 0x20, 3, 0x53, 

                  8, 0xA, 0xB, 0xD, 0xE, 0x60, 0x5E, 0x5C, 0x54}; 



 char coda[8]; 

  

unsigned int isrand(unsigned int _seed) 

{ 

  unsigned int result; // r0@1 

  unsigned int seed; // r1@1 

  signed int i; // r4@3 



  rng_tap = rng_vec; 

  rng_feed = rng_vec+607-273; 

  seed = _seed % 0x7FFFFFFF; 

  result = _seed / 0x7FFFFFFF; 

  if ( !seed ) 

    seed = 89482311; 

  for ( i = -20; i < 607; i = (i + 1) ) 

  { 

    result = 3399 * (seed / 44488); 

    seed = 48271 * (seed % 44488) - 3399 * (seed / 44488); 

    if ( i >= 0 ) 

    { 

      result = 4 * i; 

      rng_vec[i] = seed; 

    } 

  } 

  return result; 

} 





unsigned int lrand() 

{ 

  int v0; // r0@5 

  unsigned int result; // r0@7 



  --rng_tap; 

  if ( rng_tap < rng_vec ) 

  { 

    if ( !rng_feed ) 

    { 

      isrand(1u); 

      --rng_tap; 

    } 

    rng_tap += 607; 

  } 

  //v0 = rng_feed - 4; 

  rng_feed--; // = v0; 

  if ( rng_feed < rng_vec ) 

     rng_feed +=607; //rng_feed +=2428; 

  result = (2 * (*rng_feed + *rng_tap)) >> 1; 

  *rng_feed = result; 

  return result; 

} 





int main(int argc, char* argv[]) 

{ 

  int v15; 

  unsigned int imei=atoi(argv [1]); 

   

  

  // printf("%i",imei);   

//IMEI =   TAC + FAC +   SNR + LUHN 

//       XXXXXX + YY + ZZZZZZ + L 

 //v4 = SNR + MAGIC 





//SNR = XXXXXXX-YY-429081-L 

//MAGIC = 313944551; 



  //v4 = 441525 + 313944551; 

  v4 = imei + 313944551; 

  v5 = 0; 

  do 

  { 

    v6 = v4 % 0xA; 

    v4 /= 0xAu; 

    v15 = 5 - v5++; 

    v17[v15] = v6; 

  } 

  while ( v5 < 6 ); 

  v8 = (13 * v17[5] + 5 * v17[4] + 3 * v17[3] + 1553 * v17[2] + 23 *  

v17[1] + 177 * v17[0]) % 99999; 

  v9 = 7; 

  do 

  { 

    v10 = v8 % 0xA; 

    v8 /= 0xAu; 

    v17[v9] = v10; 

    v9 = (v9 + 255) & 0xFF; 

  } 

  while ( v9 > 5 ); 

  v16[0] = Table_00[v17[0]]; 

  v16[1] = Table_01[v17[1]]; 

  v16[2] = Table_10[v17[2]]; 

  v16[3] = Table_11[v17[6]]; 

  v11 = Table_2[(10 * v17[3]) + v17[4]] - 1; 

  v16[4] = v11 / 10; 

  v16[5] = v11 % 10; 

  v12 = Table_2[99 - ((10 * v17[7]) + v17[5])] - 1; 

  v16[6] = v12 / 10; 

  v16[7] = v12 % 10; 

  cnt = 0; 

  v3 = 0; 

  do 

  { 

   v14 = (v16[cnt] << 4 * cnt) | v3; 

    cnt = (cnt + 1) & 0xFF; 

    v3 = v14; 

  } 

  while ( cnt < 8 ); 

  v14 = 0; 

  isrand(v3); 

  do 

    coda[v14++] = lrand() % 0xA + 48; 

  while ( v14 < 8 ); 



  

     printf("%s",coda);   



    return 0; 

}