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
  

[roman]

No es que ayude, pero el código que pones tiene más pinta de ser python que javascript.

// Saludos

[Geta]

Pues podria ser porque no tengo apenas conocimientos de ninguno de los 2. De podria portar aun asi?

[Ñuño Martínez]

Pues sí, tiene más pinta de Python. Creo que hay gente del Club que conoce ese lenguaje, pero creo que se cuentan con los dedos de una mano. Espero que alguno de ellos lo lea, a ver si así pueden ayudarte.