Перевод C# в Delphi.

[sxcine]

нужно перевести код с языка C# на Delphi.
вот сам код:

                private static Random var_26 = new Random();
                public static String var_bb;
                public static String var_27b = "5itndg36hj";
                public static String var_290d = "";
                public static long var_710 = 32L;
                public static long var_75d = 1031L;
                public static long var_7a8 = 33L;
                public static long var_7d6 = 0L;
                public static int[] var_211 = new int[]{28, 30, 28, 29, 28, 29, 26, 26, 28, 26, 26, 28, 27, 27, 29, 30, 27, 27, 13, 28, 28, 17, 26, 28, 26, 24, 33, 29, 28, 28, 28, 28, 27, 29, 27, 28, 29, 29, 29, 30, 29, 29, 28, 30, 28, 29, 28, 28, 29, 30, 18};
 

         public static char[] sub_443(int var0, String var1, char[] var2, long var3, int[] var5, int var6) {
      var1 = new String(var2);
 
      for(int var7 = 0; var7 < var1.Length; ++var7) {
         var5[var7] += var6 | var_bb[(var_bb.IndexOf("" + var1[(var7)]))];
         var5[var7] = (int)((long)var5[var7] + (long)var0 + var3);
         var6 += var5[var7];
         var5[var7] += (int)var_7a8;
         var2[var7] = var_bb[(Math.Abs(var5[var7] % var_bb.Length))];
      }
 
      return null;
   }
 
                  public static int sub_4fe(int var0)
                  {
          return var_211[Math.Abs(var0 % var_211.Length)];
   }
 
                  public static Boolean sub_b81(char var0, char var1, int var2)
                  {
          return Math.Abs(var0 - var1) <= var2 + sub_4fe(var2);
   }
 
                  public static int sub_2ac(char[] var0, int[] var1, int var2)
                  {
      for(int var3 = 0; var3 < var1.Length * 4; ++var3) {
         int var4 = var3 % var1.Length;
                 int var5 = Math.Abs(var3 * var1[var4] + var1[var4]) % var1.Length;
         if(!sub_b81(var0[var4], var0[var5], var1.Length)) {
            ++var1[(var4 + var5) / 2];
            var1[var4] += var0[var5];
            var1[var5] += var0[var4];
            ++var2;
         }
      }
 
      return var2;
   }
 
                  public static int sub_1c6(int var0, int var1)
                  {
      return var0 < 0?0:(var1 <= var0?var0:var0 + Math.Abs(var_26.Next()) % (var1 - var0));
   }
 
                  public static int sub_200(int[] var0, long var1)
                  {
      var0[0] = (int)((var1 + var1 + var_7a8) * var1);
 
      for(int var3 = 1; var3 < var0.Length; ++var3) {
         var0[var3] = (int)((var1 + (long)var3 + (long)var0[var3 - 1]) * var1);
      }
 
      return sub_1c6(10000, 1000000);
   }
 
           public static long sub_205(long var0, int var2, long var3)
           {
      for(int var5 = var2 - 1; var5 >= 0; --var5) {
                 var0 += var3 * (long) (var_bb.IndexOf("" + var_27b[var5]) + 1) + var_7a8;
         var3 *= 63L;
           }
       return var0;
          }
 
          private String sub_316b()
          {
      return sub_319e((String)null);
          }
          
          private static String sub_319e(String var0)
          {
         // if(var0 != null) {
                 var_290d = var0;
                 ++var_75d;
     // }
 
         // try {
         String var1 = null;
         long var2 = 508L;
         if((var_7d6 & -2147483648L) != 0L && (var_75d & 1024L) > 0L) {
            if(var_75d % 256L != 233L) {
               var2 ^= var_710;
            }
         } else {
            var2 ^= var_75d;
         }
 
         int var4;
         for(var4 = 0; var4 < var_290d.Length; ++var4) {
            var2 += (long)var_290d[(var4)] * var_710;
         }
 
         var4 = var_27b.Length;
         var2 = sub_205(var2, var4, 1L);
         int[] var7 = new int[var_27b.Length];
         char[] var8 = var_27b.ToCharArray();
                 Boolean var9 = false;
         int var11 = sub_200(var7, var2);
         int var13 = sub_2ac(var8, var7, 1);
         var11 *= var13;
         if(sub_443(var4, var_290d + var_27b, var8, var2, var7, var13) != null) {
                        var1 = Convert.ToString(var11 * 123);
         } else {
            var1 = new String(var8);
                 }
 
                 return var1;
         // }
         // catch (Exception var12) {
         //      return null;
         // }
         // return var1;
   }

расчитываю на сумму 200-250 рублей, т.к. код не трудный (я сам примерно половину перевёл, просто не разбираюсь в циклах и некоторых знаках).
кто сможет - напишите в аську 606004411


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[DreamBit]

Пишите, помогу
ICQ: 477765794
Mail: dreambitc@gmail.com

[IronBee501]

Могу помочь.
есть опыт перевода с JAVA на PASCAL

ICQ: 255859146
eMail: ilyassu@mail.ru