Mit Delphi 7 auf die Schnelle:
RapidShare: 1-CLICK Web hosting - Easy Filehosting
Ist nur ein Generator, für valide Nummern ;P.
Quellcode auf Anfrage.
EDIT:
Zwecks Postingcount mal ein Virustotal-Up:
Virustotal. MD5: ca18e7e1ddc9e5a3ffec622a7decb0dc