Best Blackhat Forum

Hi BBF Members,

I m searching some one can guide me you too want learn perl cgi script from sibsoft.net
I attach to learn upload.cgi from fileserver script inside the cgi-bin...

and then I found this script to connect make api from filehosting to our leech upload.cgi sibsoft

Code:

sub pre4shared {

    my ($u) = @_;

    my ($login, $pass) = &getLogins("fs");

    my $res = $ua->get('http://www.4shared.com');

    my @forms = HTML::Form->parse($res);

    my $form = $forms[2];

    $form->value('login' => $u->{auth_login});

    $form->value('password' => $u->{auth_password});

    $form->value('remember' => 'true');

    $res = $ua->request($form->click);

    if($res->content=~/Invalid e-mail address or password/i) {

            ($u->{auth_login},$u->{auth_password}) = shift(@{$u->{accs}})=~/^(.+):(.+)$/;

            next if $u->{auth_login} and& $u->{auth_password};

            $u->{file_error}="Can not leech 4shared file";

            return $u;

    }

    return $u;

}

Can any one teach me and other member BBF to made new plugins leech in upload.cgi

inrev