I don't know how many of you use Win*zy, but I've used it with some success in the past. After lurking around this forum for quite some time, I thought I'd sign up and share my scripts for automating winzy functions.
To the mods: if this is in the wrong forum, please move it. If you don't feel it deserves to be moved, feel free to delete it.
When runnings the scripts: I recommend large sleep times in the scripts to reduce suspicious activity being reported. I've noticed that having sleep times less than 20 seconds when searching will occasionally bring up an "error" page, but anything larger than 20 seconds has never brought up the page. Also, if you're having any problems with any of the scripts, feel free to ask questions - I just want to help. If you like the scripts and they're working well for you, please thank me and I'll continue providing free scripts
Regarding the registering script: The referral is hardcoded in. It's been a while since I've written these scripts (and a month since I've coded them), but the line with the referral is the
line.
If you want to change it to refer to one of your own accounts, just visit your own referral link and copy your own cookie values in.
I'm sorry about the referral being hardcoded in, but I haven't tested if it works without a referral, I just assumed you needed one. If this is against the rules, I'm sorry - once again, feel free to delete this post.
To the mods: if this is in the wrong forum, please move it. If you don't feel it deserves to be moved, feel free to delete it.
When runnings the scripts: I recommend large sleep times in the scripts to reduce suspicious activity being reported. I've noticed that having sleep times less than 20 seconds when searching will occasionally bring up an "error" page, but anything larger than 20 seconds has never brought up the page. Also, if you're having any problems with any of the scripts, feel free to ask questions - I just want to help. If you like the scripts and they're working well for you, please thank me and I'll continue providing free scripts
Regarding the registering script: The referral is hardcoded in. It's been a while since I've written these scripts (and a month since I've coded them), but the line with the referral is the
Code:
$ua->default_header('Cookie' => "x=i%3D25745851; s=p9uh89vcf99a8qpr7rhpe5c6h3; c=10595597; r=i%3D145419%26c%3Df%26s%3D1",
If you want to change it to refer to one of your own accounts, just visit your own referral link and copy your own cookie values in.
I'm sorry about the referral being hardcoded in, but I haven't tested if it works without a referral, I just assumed you needed one. If this is against the rules, I'm sorry - once again, feel free to delete this post.
Code:
#!/usr/bin/perl
# do-masters.pl
# by Drusepth
# Logs in with a set user:password and searches x times.
# Usage: `perl winzy-search.pl`;
# Time (in seconds) to sleep between searches: (Recommended 20-30)
$sleep_time = 20;
# Searches:
$searches = 150;
$email = '[email protected]';
$password = 'your_passw0rd';
use HTTP::Cookies;
use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; Windows 5.1)');
$ua->cookie_jar(HTTP::Cookies->new());
$login_script = "https://account.winzy.com/zy_signin.php";
$data="user=" . $email . "&password=" . $password;
$req = new HTTP::Request 'POST', $login_script;
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
print "Starting to search...\n";
for ($j = 0; $j < $searches + 1; $j++) {
# Go ahead and start searching:
$req = HTTP::Request->new(GET => "http://search.winzy.com/search?q=drusepth&src=hd&x=0&y=0&osrc=hd");
$res = $ua->request($req);
if (!$res->is_success) {
print "Search Failed: ", $res->status_line, "\n";
}
#if (($j % 5 == 0 and $j != 0) or ($j == $searches)) {
print "* $j searches completed.\n";
#}
`sleep $sleep_time`;
}
Code:
#!/usr/bin/perl
# register-account.pl
# Registers x accounts on Winzy.com email EMAIL and password PASSWORD.
# Usage: `perl register-account.pl EMAIL PASSWORD REFERRER`;
# Configuration Options
# Number of accounts to sign up with the script
# - Because there is no email validation, emails will be prepended
# with a number corresponding to it's ID.
# Example of 3 accounts set up with [email protected]:
# [email protected] [email protected] [email protected]
# You get the point.
$number_of_signups = 5;
# Page to request for signups:
$signup_page = "https://account.winzy.com/newuser.html";
# Name to use as a base (Choose something unique so it won't be taken)
$name = "blah_blah_blah";
# File to store username:password pairs:
$userpass_file = "users.txt";
# Time (in seconds) to sleep between making each account:
$sleep_time = 5;
# End Configuration Options
# The rest of the code is protected by IdiotBlocker 2.9, Idiots Beware!
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
$email = shift or die "Usage: perl register-account.pl EMAIL PASSWORD\n";
$password = shift or die "Usage: perl register-account.pl EMAIL PASSWORD\n";
$ua = LWP::UserAgent->new;
# User Agent Headers:
$ua->default_header('Cookie' => "x=i%3D25745851; s=p9uh89vcf99a8qpr7rhpe5c6h3; c=10595597; r=i%3D145419%26c%3Df%26s%3D1",
'Referer' => "http://www.winzy.com/",
'User-Agent' => "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)");
open (USERS, $userpass_file);
@current_accounts = <USERS>;
close USERS;
$email_domain = substr($email, index($email, '@') + 1);
foreach $user (@current_accounts) {
$user_domain = substr($user, index($user, '@') + 1, index($user, ':') - index($user, '@') - 1);
$temp++ if ($user_domain eq $email_domain);
}
for (0..$number_of_signups) {
$id = $name . scalar @current_accounts . $temp;
$at = index($email, '@');
$e_mail = substr($email, 0, $at) . $temp++ . '@' . substr($email, $at + 1);
$data = "sEmail=$e_mail&sPassword=$password&sWinzyID=$id&gender=Male&zip=60606&bAgree=Yes&bJavascript=No&CFormID=register&birth[month]=5&birth[day]=14&birth[year]=1982
$req = new HTTP::Request 'POST', $signup_page;
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
if ($res->is_success) {
print "There was a problem registering '$e_mail'.. Most likely the email or id was taken.\n";
} else {
if ($res->status_line eq "302 Found") {
print "Successfully registered '$e_mail'.\n";
open (USERS, ">>$userpass_file");
print USERS "$e_mail:$password\n";
close USERS;
} else {
print "Query Failed: ", $res->status_line, "\n";
}
}
`sleep $sleep_time`;
}
Code:
#!/usr/bin/perl
# winzy-search.pl
# Logs in with a list of user:passwords in a file and searches x times.
# Usage: `perl winzy-search.pl`;
# Configuration Options
# File of username:password pairs:
$userpass_file = "users.txt";
# Time (in seconds) to sleep between searches: (Recommended 20-30)
$sleep_time = 20;
# Searches:
$searches = 50;
# End Configuration Options
# The rest of the code is protected by IdiotBlocker 2.9, Idiots Beware!
use HTTP::Cookies;
use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'Mozilla/4.0 (compatible; Windows 5.1)');
$ua->cookie_jar(HTTP::Cookies->new());
print "Sorting out user:passes... ";
open (USERS, $userpass_file) || die "Couldn't open $userpass_file: $!\n";
@users = <USERS>;
close USERS;
foreach $user (@users) {
$emails[$i] = substr($user, 0, index($user, ":"));
$passwords[$i++] = substr($user, index($user, ":") + 1, -1);
$max = $i;
}
$i = 0;
print "Done.\n";
for ($i = 0; $i < $max; $i++) {
print "Logging in with email '$emails[$i]'... ";
# Log In with the account...
$login_script = "https://account.winzy.com/zy_signin.php";
$data="user=" . $emails[$i] . "&password=" . $passwords[$i];
$req = new HTTP::Request 'POST', $login_script;
$req->content_type('application/x-www-form-urlencoded');
$req->content($data);
$res = $ua->request($req);
print "Done.\n";
# Cookies should be saved...
print "Starting to search.\n";
for ($j = 0; $j < $searches + 1; $j++) {
# Go ahead and start searching:
$req = HTTP::Request->new(GET => "http://search.winzy.com/search?q=tddirc&src=hd&x=0&y=0&osrc=hd");
$res = $ua->request($req);
if ($res->is_success) {
# Success!
} else {
print "Search Failed: ", $res->status_line, "\n";
}
if (($j % 25 == 0 and $j != 0) or ($j == $searches)) {
print " - $j searches completed.\n";
}
`sleep $sleep_time`;
}
print "Searches complete. Moving on to the next account.\n";
}