Foros Club Delphi - A ver si sois capaces de romperla...

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- La Taberna (https://www.clubdelphi.com/foros/forumdisplay.php?f=40)

- - A ver si sois capaces de romperla... (https://www.clubdelphi.com/foros/showthread.php?t=76175)

A ver si sois capaces de romperla...

Enhorabuena por el nuevo engendro... digo, proyecto David

http://uri.mn/f

Saludos

Hola,

Gracias D-MO. ;)

David, perdona, no me he podido contener. ¿Que pasa con el spam?

Código:

#!/usr/bin/python

import urllib2



for i in range(1,100):

    f = urllib2.urlopen('http://uri.mn/g/http://example.com/spam-test-%s' % i).read()

Saludos

Je je je... pues ya lo ves. :)

Por el momento acabo de añadir una "puerta", que, impide que se añadan nuevas URLs antes de pasar 30 segundos desde añadir una. Sin embargo, todo esto no es más que un juguete, al menos de momento. Claro que sobre el SPAM igual es necesario hacer algo, así como con tantas otras cosas que pueden ocurrírsele a uno (y a varios no te digo nada), como, por ejemplo, evitar URLs inexistentes,... qué sé yo. :)

Por cierto, que, te habrás fijado que borro las URLs... y es que voy añadiendo campos a la tabla según veo que los necesito, no te digo más. :D :D ¡Pero es divertido al menos!

Como el título dice "A ver si sois capaces de romperla...", así que pensé en ponerlo aprueba.

Saludos

Si está muy bien D-MO, cualquier comentario es bienvenido. :)

Hola Dec.

Muy bueno y también muy ocurrente. ;)

Por supuesto funciona bién. Realmente me ha gustado la originalidad de tu idea.

Un saludo :)

Por aquí vivo yo: MAPA

A ver si me encuentran...

Hola,

Cita:

Empezado por ecfisa (Mensaje 415553)

Hola Dec.

Muy bueno y también muy ocurrente. ;)

Por supuesto funciona bién. Realmente me ha gustado la originalidad de tu idea.

Un saludo :)

Hombre... original, lo que se dice original, no es. Para qué nos vamos a engañar.

Sin embargo, la originalidad es un valor demasiado atractivo, demasiado fulgurante, a las veces inalcanzable. Definitivamente, la originalidad es un grado (como la experiencia), pero, hay otras cosas, otras formas de hacer las cosas, que, igual marcan la diferencia tanto o más que la originalidad. Por ejemplo, un simple nombre de dominio que llame más la atención que otro. Ningún dominio es original, pero, unos pueden funcionar mejor que otros. Y lo mismo vale para las propias aplicaciones alojadas en dichos dominios: pueden no ser originales, pero, tal vez marquen ciertas diferencias que compensen la falta de originalidad. Y hasta aquí puedo escribir que menudo rollo he soltado. :D

Cita:

Empezado por duilioisola (Mensaje 415566)

Por aquí vivo yo: MAPA

A ver si me encuentran...

Voy a ver si me pongo las gafas. :)

Cita:

Empezado por Casimiro Notevi (Mensaje 415573)

Muy bueno :)

Gracias Casimiro. ;)

A propósito, ¿y cómo se hace? :)

Cita:

Empezado por Casimiro Notevi (Mensaje 415598)

A propósito, ¿y cómo se hace? :)

¿Cómo se hace lo cualo? :D

Cita:

Empezado por dec (Mensaje 415604)

¿Cómo se hace lo cualo? :D

Pregunto que cómo recortas la url, si usas alguna fórmula conocida o algún método "inventado" por tí :)

Hola,

Pues, en efecto, hay dos funciones "principales", que, sirven para convertir un número en letras y viceversa. Dichas funciones no las he inventado yo, pero, me he basado en el trabajo de http://yourls.org/. Por lo demás, como verás este último es un "script PHP" para montarse uno su propio sitio "acortador de URLs", algo así como un WordPress para esta tarea. Yo no me baso completamente en dicho script, pero, sí que he tomado, entre otras cosas, las dos funciones susomentadas. Helas aquí:

Código PHP:


		
			
class Min

{

  const CHARS_MAP = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

 

  public static function intToStr( $int ) 

  {

    $str = ''; 

    

    $chars = self::CHARS_MAP;

    

    $len = strlen( $chars );

    

    while( $int >= $len ) 

    {

      $mod = bcmod( $int, $len );

      $int = bcdiv( $int, $len );

      $str = $chars[ $mod ] . $str;

    }

    

    $str = $chars[ $int ] . $str;

    

    return $str;

  }



  public static function strToInt( $str ) 

  {

    $int = 0;

    $chars = self::CHARS_MAP;

    

    $str = strrev( $str );

    $baselen = strlen( $chars );

    

    $inputlen = strlen( $str );

    

    for ( $i = 0; $i < $inputlen; $i++ ) 

    {

      $index = strpos( $chars, $str[ $i ] );

      

      $int = bcadd( $int, bcmul( $index, bcpow( $baselen, $i ) ) );

    }

    return $int;

  }

}