Portar rutina Javascript a Delphi

[Geta]

Hola. Debido a que trabajo con las consolas Wii reparandolas, hay en la red una rutina en javascript para poder desactivar el control parental de estas consolas y en el SAt donde estoy nos vendria bien una aplicacion que nos generase ese codigo. Lo malo es que los fuentes estan en javascript y no tengo conocimientos de este lenguaje. Lo poteo por si alguien pudiera ayudarme a portarlo a Delphi. Gracias.

  ctime = time.time()
  
          def opt_date(delta):
  t = time.gmtime(ctime + delta * 3600 * 24)
                 if delta == 0:
  selected = ' selected="selected"'
                 else:
                         selected = ""
                 return '<option value="%02d%02d" %s>%s</option>'%(t.tm_mon,t.tm_mday,selected,time.strftime("%a, %d %b %Y",t))
  
          class CRC32:
                 def __init__(self):
                         self.gentable()
  
  
                 def crc32(self, input, crc=0xffffffffl):
                         count = len(input)
                         i = 0
                         while count != 0:
                                 count -= 1
                                 temp1 = (crc >> 8) & 0xFFFFFF
                                 temp2 = self.table[(crc ^ ord(input[i])) & 0xFF]
                                 crc = temp1 ^ temp2
                                 i += 1
                         return crc
  
                 def gentable(self):
                         self.table = []
                         for i in range(256):
                                 crc = i
                                 for j in range(8):
                                        if crc & 1:
                                                crc = (crc >> 1) ^ 0xEDB88320l
                                        else:
                                                crc >>= 1
                                 self.table.append(crc)
  
          def error(s):
                 return '<div class="error">%s</div>'%s
  
          def process():
                 try:
                         int(form["number"][0]) #validate
                         if len(form["number"][0]) != 8 or not all([x in "0123456789" for x in form["number"][0]]):
                                 raise ValueError()
                 except:
                         return error("Please provide a valid 8-digit confirmation number")
  
                 try:
                         int(form["date"][0]) #validate
                         if len(form["date"][0]) != 4 or not all([x in "0123456789" for x in form["date"][0]]):
                                 raise ValueError()
                 except:
                         return error("Invalid date")
  
                 fullnum = form["date"][0] + form["number"][0][4:8]
  
                 crc = CRC32().crc32(fullnum)
                 code = ((crc ^ 0xaaaa) + 0x14c1) % 100000
  
                 return '<div class="response">Your unlock code:<span class="code">%05d</span></div>'%code