How-To Skrypt uploadu na serwery rapidshare

Dyskusja w 'Oh'Linux? Software hacking' rozpoczęta przez użytkownika hypnosiss, 4 Październik 2008.

Ładowanie...
  1. hypnosiss
    Offline

    hypnosiss Moderator Contributor

    Dołączył:
    6 Lipiec 2008
    Wiadomości:
    321
    Miejscowość:
    Polska, Wrocław
    Local Time:
    21:58
    Oceny:
    +28 / 0 / -0
    Followers:
    0
    QNAP:
    TS-109/209
    Ethernet:
    1 GbE
    TS-109/209 1 GbE
    SKRYPT PERL DO UPLOADOWANIA PLIKÓW Z QNAPA NA SERWERY RAPIDSHARE

    Przedstawiam autorski skrypt do uploadu wiele plików na serwery rapidshare. Więkrzość opcji jest wypisanych w helpie skryptu.
    Ogólnie mówiąc skrypt ma możliwość uploadu przez różne sposoby na serwery rapidshare. Skrypt ma zastosowaną funkcje skiplist, polega ona na zapisywaniu ściągniętych już plików także przy ponownym uruchomieniu tych samych wartości skrypt wznowi upload od danego pliku oraz danej KB.
    Skrypt jest przeznaczony na serwery NAS firmy QNAP!
    Obsługa kont premium, collector jak i darmowe.
    Skrypt ma dodane obliczanie procentowe, dzięki czemu mamy możliwość poglądu w jakim stopniu wysłany jest plik.
    Skrypt obsługuje również błedy RS.

    Krok po kroku INSTALACJA:

    1. Instalujemy Optware z QPKG(znajdującym się w Panelu Administracyjnym) oraz ustawiamy wartośc na Enabled(włączony).
    2. Instalujemy PERLA z QPKG (https://forum.qnap.net.pl/viewtopic.php?f=49&t=282) ustawiamy na Enabled
    3. Logujemy się na SSH.
    4. Tworzymy foldery i pliki.
    Wpisuj kolejno:

    Kod (Bash):
    1. cd ..
    2. mkdir rapidshare1
    3. cd rapidshare1
    Tworzymy plik rsapi.pl:
    Kod (Bash):
    1. vi rsapi.pl
    Wciskamy klawisz "i"
    Kopiujemy to:
    Kod (Perl):
    1. #!/usr/bin/perl
    2. $| = 1;
    3. #
    4. # Version 2.1.1 (13. July 2007)
    5.  
    6. # RapidShare AG OpenSource Perl Uploader V2 (with upload resume). For non-commercial use only. All rights reserved.
    7. # Included: Uploading to free, collector's and premium-zone. The MD5-check after uploads checks if the upload worked.
    8. # Upload resume can continue aborted downloads up to 24 hours after the download aborted. This means, incomplete files
    9. # will automatically be deleted from the RapidShare servers 24 hours after the first chunk arrived.
    10. # This is a PERL script written for experts and for coders wanting to know how to write own upload programs.
    11. # Tested under Linux and Linux only.
    12. # If you write your own upload-tools, please look at our rsapi.cgi calls. You need them to have fun.
    13. #
    14. # To upload a file, put this script on a machine with perl installed and use the following syntax:
    15. # perl rsapi.pl free mytestfile.rar     (this uploads mytestfile.rar as a free user)
    16. # perl rsapi.pl prem archive.rar 334 test  (this uploads archive.rar to the premium-zone of login 334 with password test)
    17. # perl rsapi.pl col a.rar testuser mypw (this uploads a.rar to the collector's-zone of login testuser with password mypw)
    18.  
    19. use strict;
    20. use warnings;
    21. use Digest::MD5("md5_hex");
    22. use Fcntl;
    23. use IO::Socket;
    24.  
    25. my ($file, $zone, $login, $password, $uploadpath, $cursize, $size, $filecontent, $md5hex, $size2, $socket, $uploadserver, $killcode);
    26.  
    27.  
    28.  
    29. # This chapter sets some vars and parses some vars.
    30. $/ = undef;
    31. $SIG{PIPE} = 'IGNORE';
    32. $file = $ARGV[0] || die "Syntax: $0 <filename to upload> <free|prem|col> [login] [password]\n";
    33. $zone = $ARGV[1] || "";
    34. $login = $ARGV[2] || "";
    35. $password = $ARGV[3] || "";
    36. $uploadpath = "l3";
    37. $size = -s $file || die "Plik $file jest pusty lub nie istnieje!\n";
    38.  
    39.  
    40.  
    41. # This chapter checks the file and calculates the MD5HEX of the existing local file.
    42. print "File $file has $size bytes. Calculating MD5HEX...\n";
    43. open(FH, $file) || die "Nie można otworzyć pliku: $!\n";
    44. $filecontent = <FH>;
    45. close(FH);
    46. $md5hex = md5_hex($filecontent);
    47. $size2 = length($filecontent);
    48. print "MD5HEX is $md5hex ($size2 bytes analyzed)\n";
    49. unless ($size == $size2) { die "Dziwny błąd: $size bajtów znaleziono, ale tylko $size2 bajtów przeanalizowano?\n" }
    50.  
    51.  
    52.  
    53. # This chapter finds out which upload server is free for uploading our file by fetching http://rapidshare.com/cgi-bin/rsapi.cgi?sub=nextuploadserver_v1
    54. if ($login and $password) { print "Trying to upload to your $zone account.\n" } else { print "Uploading as a free user.\n" }
    55. print "Getting upload server infos.\n";
    56. $socket = IO::Socket::INET->new(PeerAddr => "rapidshare.com", PeerPort => "80", Type => SOCK_STREAM) || die "Nie można się połączyć: $!\n";
    57. print $socket qq|GET /cgi-bin/rsapi.cgi?sub=nextuploadserver_v1 HTTP/1.0\r\n\r\n|;
    58. ($uploadserver) = <$socket> =~ /\r\n\r\n(\d+)/;
    59. unless ($uploadserver) { die "Uploadserver invalid? Internal error!\n" }
    60. print "Uploading to rs$uploadserver$uploadpath.rapidshare.com\n";
    61.  
    62. $cursize = 0;
    63. while ($cursize < $size) { print "SIZES=$cursize,$size\n"; $cursize = &uploadchunk($file, $md5hex, $size, $cursize, "rs$uploadserver$uploadpath.rapidshare.com:80") }
    64.  
    65.  
    66.  
    67. sub uploadchunk {
    68.   my $file = shift || die;
    69.   my $md5hex = shift || die;
    70.   my $size = shift || die;
    71.   my $cursize = shift || 0;
    72.   my $fulluploadserver = shift || die;
    73.  
    74.   my ($uploaddata, $wantchunksize, $fh, $socket, $boundary, $contentheader, $contenttail, $contentlength, $header, $chunks, $chunksize,
    75. $bufferlen, $buffer, $result, $fileid, $complete, $resumed, $filename);
    76.  
    77.   if (-e "$file.uploaddata") {
    78.     print "Found .uploaddata! Overriding settings and trying to resume.\n";
    79.     open(I, "$file.uploaddata") or die "Nie można otworzyć pliku: $!\n";
    80.     ($fulluploadserver, $fileid, $killcode) = split(/\n/, <I>);
    81.     print "Uploadserver=$fulluploadserver\nFile-ID=$fileid\nKillcode=$killcode\n";
    82.     close(I);
    83.     print "Checking if RS gives an OK and the position...\n";
    84.     $socket = IO::Socket::INET->new(PeerAddr => "rapidshare.com", PeerPort => "80", Type => SOCK_STREAM) || die "Nie można się połączyć: $!\n";
    85.     print $socket qq|GET /cgi-bin/rsapi.cgi?sub=checkincomplete_v1&fileid=$fileid&killcode=$killcode HTTP/1.0\r\n\r\n|;
    86.     $result = <$socket>;
    87.     unless ($result =~ /\r\n\r\n(\d+)/) { die "I can't resume the file. Please delete $file.uploaddata. RS said:\n$result\n" }
    88.     $cursize = $1;
    89.     print "All ok. The upload stopped at $cursize. Trying to resume.\n";
    90.     $resumed = 1;
    91.   }
    92.  
    93.   $wantchunksize = 1024000;
    94.  
    95.   if ($size > $wantchunksize) {
    96.     $chunks = 1;
    97.     $chunksize = $size - $cursize;
    98.     if ($chunksize > $wantchunksize) { $chunksize = $wantchunksize } else { $complete = 1 }
    99.   } else {
    100.     $chunks = 0;
    101.     $chunksize = $size;
    102.   }
    103.  
    104.   print "Upload chunk is $chunksize bytes starting at $cursize.\n";
    105.  
    106.   sysopen($fh, $file, O_RDONLY) || die "Unable to open file: $!\n";
    107.   $filename = $file =~ /[\/\\]([^\/\\]+)$/ ? $1 : $file;
    108. $socket = IO::Socket::INET->new(PeerAddr => $fulluploadserver, Type => SOCK_STREAM) || die "Nie można utworzyć połączenia: $!\n";
    109.   $boundary = "---------------------632865735RS4EVER5675865";
    110.   $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="rsapi_v1"\r\n\r\n1\r\n|;
    111.  
    112.   if ($resumed) {
    113.     $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="fileid"\r\n\r\n$fileid\r\n|;
    114.     $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="killcode"\r\n\r\n$killcode\r\n|;
    115.     if ($complete) { $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="complete"\r\n\r\n1\r\n| }
    116.   } else {
    117.     if ($zone eq "prem" and $login and $password) {
    118.       $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="login"\r\n\r\n$login\r\n|;
    119.       $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="password"\r\n\r\n$password\r\n|;
    120.     }
    121.  
    122.     if ($zone eq "col" and $login and $password) {
    123.       $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="freeaccountid"\r\n\r\n$login\r\n|;
    124.       $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="password"\r\n\r\n$password\r\n|;
    125.     }
    126.  
    127.     if ($chunks) { $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="incomplete"\r\n\r\n1\r\n| }
    128.   }
    129.  
    130.   $contentheader .= qq|$boundary\r\nContent-Disposition: form-data; name="filecontent"; filename="$filename"\r\n\r\n|;
    131.   $contenttail = "\r\n$boundary--\r\n";
    132.   $contentlength = length($contentheader) + $chunksize + length($contenttail);
    133.  
    134.   if ($resumed) {
    135.     $header = qq|POST /cgi-bin/uploadresume.cgi HTTP/1.0\r\nContent-Type: multipart/form-data; boundary=$boundary\r\nContent-Length: $contentlength\r\n\r\n|;
    136.   } else {
    137.     $header = qq|POST /cgi-bin/upload.cgi HTTP/1.0\r\nContent-Type: multipart/form-data; boundary=$boundary\r\nContent-Length: $contentlength\r\n\r\n|;
    138.   }
    139.  
    140.   print $socket "$header$contentheader";
    141.  
    142.   sysseek($fh, $cursize, 0);
    143.   $bufferlen = sysread($fh, $buffer, $wantchunksize) || 0;
    144.   unless ($bufferlen) { die "Błąd podczas czytania pliku: $!\n" }
    145.   print "Sending $bufferlen bytes.\n";
    146.   $cursize += $bufferlen;
    147.   print $socket $buffer;
    148.   print $socket $contenttail;
    149.   print "Server response:\n";
    150.   ($result) = <$socket> =~ /\r\n\r\n(.+)/s;
    151.   unless ($result) { die "Ooops! Nie otrzymano żadnych poprawnych wyników od serwera?\n" }
    152.   print $result . "\n";
    153.  
    154.   if ($resumed) {
    155.     if ($complete) {
    156.       if ($result =~ /^COMPLETE,(\w+)/) {
    157.         print "Upload completed! MD5HEX=$1 Checking MD5...\n";
    158.         if ($md5hex ne $1) { die "MD5-CHECK NOT PASSED! LOCAL=$md5hex REMOTE=$1\n" }
    159.         print "MD5-check passed. Upload OK! Saving status to rsapiuploads.txt\n";
    160.         open(O,">>rsapiuploads.txt") or die "Nie można zapisać do rsapiuploads.txt: $!\n";
    161.         print O "Upload OK!\n\n";
    162.         close(O);
    163.         unlink("$file.uploaddata");
    164.       } else {
    165.         die "Nieoczekiwana odpowiedź serwera!\n";
    166.       }
    167.     } else {
    168.       if ($result =~ /^CHUNK,(\d+)/) {
    169.         print "Chunk upload completed! Uploaded=$1\n";
    170.       } else {
    171.         die "Nieoczekiwana odpowiedź serwera!\n";
    172.       }
    173.     }
    174.   } else {
    175.     if ($result =~ /files\/(\d+)/) { $fileid = $1 } else { die "Serwer nie wysłał ID (Sprawdź login i hasło do konta premium).\n" }
    176.     unless ($result =~ /File1\.3=(\d+)/ and $1 == $cursize) { die "Serwer nie zapisał wszystkich wysłanych danych.\n" }
    177.     unless ($result =~ /File1\.2=.+?killcode=(\d+)/) { die "Serwer nie wysłał killcode.\n" }
    178.  
    179.     $killcode = $1;
    180.  
    181.     open(O,">>rsapiuploads.txt") or die "Nie można zapisać do rsapiuploads.txt: $!\n";
    182.     print O "Uploading $file. Download-links:\n$result";
    183.     close(O);
    184.  
    185.     if ($chunks) {
    186.       open(O, ">$file.uploaddata") or die "Unable to save upload server: $!\n";
    187.       print O "$fulluploadserver\n$fileid\n$killcode\n";
    188.       close(O);
    189.     }
    190.   }
    191.  
    192.   return $cursize;
    193. }
    194.  
    i wklejmy do konsoli klikajac prawym przyciskiem myszy w konsole(a dokladniej w czarne tlo :) )
    Wciskamy ESC oraz SHIFT + Z,Z.
    Czekamy aż skończy wklejanie i potwierdzi że zapisano plik.

    Tworzymy plik rs.pl:
    Kod (Bash):
    1. vi rs.pl
    UWAGA UŻYTKOWNICY Z RAIDEM ZAMIENIAJA HDA_DATA NA MDO_DATA W JEDNYM MIEJSCU "my $basedir =" !!!!!!!!!!!!!!!!!!!!!!!
    Robimy tak samo jak poprzedni plik z tym że wklejamy to:
    Kod (Perl):
    1. #!/usr/bin/perl
    2. use strict;
    3.  
    4. $| = 1;
    5.  
    6. my $basedir = "/share/HDA_DATA";
    7. my $rsf = "/rapidshare1/rsapi.pl";
    8.  
    9. unless ($ARGV[0]) {
    10.   print "Witaj ! \n";
    11.   print "Jest to skrypt do uploadowania plików znajdujących się na QNAPie na serwery Rapidshare. \n";
    12.   print "Wykorzystuje on twórczość rapidshare, który napisał główny kod uploadujący(PLIK RSAPI.PL) na serwery rapidshare(na zasadzie Open Source). \n";
    13.   print "Kod ich został przezemnie nieco zmieniony pod serwery QNAP oraz dla potrzeb skryptu. Skrypt powinien działać na wszystkich wersjach QNAPa.\n\n";
    14.   print "Wymagania:\n";
    15.   print "- zainstalowane na QNAPie(QPKG) środowisko OPTWARE;\n";
    16.   print "- zainstalowany PERL z QPKG\n\n";
    17.   print "Opcje:\n";
    18.   print "1 - Wysyłanie wszystkich plików z podanego katalogu o danym rozszerzeniu mających w nazwie podaną frazę\nPrzykład: perl rapidshare1/rs.pl 1 Kaspersky rar QMultimedia [free|prem( login pass)]\n\n\n";
    19.   print "2 - Wysyłanie plików o danym rozszerzeniu z danego folderu\nPrzykład: perl rapidshare1/rs.pl 2 rar Public/upload/antywirus [free|prem( login pass)]\n\n\n";
    20.   print "3 - Wysyłanie podanych części archiwum rar wieloczęściowego z danego katalogu\nPrzykład: perl rapidshare1/rs.pl 3 1-15 QDownload/Filmy [free|prem( login pass)]\n\n\n";
    21.   print "4 - Wysyłanie plików zapisanych na liście plików podanej jako parametr\nPrzykład: perl rapidshare1/rs.pl lista.plikow.txt [free|prem( login pass)]\n\n\n";
    22.   print "INFORMACJE\n";
    23.   print "- W nazwach katalogów nie należy używać ukośników na końcu.\n";
    24.   print "- W liście plików(opcja 3) oddzielaj ścieszki enterami.\n\n";
    25.   print "Kontakt: hypnosisspl\@gmail.com\n\n";
    26.   die "Try again ;)";
    27. }
    28. unless (-e "$ENV{HOME}/skiplist.txt") { open FILE, ">", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";close FILE; }
    29. if ($ARGV[0] == 1) {
    30.   my $p;
    31.   my $c;
    32.   my $fff;
    33.   my @prem;
    34.   unless ($ARGV[1] && $ARGV[2] && $ARGV[3] && $ARGV[4]) {
    35.     die "Nieprawidłowe parametry\n";
    36.   }
    37.   else {
    38.     if ($ARGV[4] eq "prem") {
    39.       unless ($ARGV[5] && $ARGV[6]) {
    40.       die "Nie podano hasła/loginu do konta\n";
    41.     }
    42.       else {
    43.     $p = 1; $prem[0] = $ARGV[5]; $prem[1] = $ARGV[6]; print "Wybrano konto prem\n";
    44.       }
    45.     }
    46.     elsif ($ARGV[4] eq "col") {
    47.       unless ($ARGV[5] && $ARGV[6]) {
    48.       die "Nie podano hasła/loginu do konta\n";
    49.     }
    50.       else {
    51.     $c = 1; $prem[0] = $ARGV[5]; $prem[1] = $ARGV[6]; print "Wybrano konto col\n";
    52.       }
    53.     }
    54.     else { if ($ARGV[4] eq "free") { print "Wybrano konto free\n"; $fff = 1; } else { die "Wybrano złe konto\n"; } }
    55.   }
    56.   print "Wybrano opcję 1... Uruchamianie...\n";
    57.   chdir($basedir."/".$ARGV[3]) or die "Error: $!\n";
    58.   my @files = glob("*$ARGV[1]*.$ARGV[2]");
    59.   open SKIP, "<", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    60.   chomp(my @skip = <SKIP>);
    61.   close SKIP;
    62.   foreach my $f (@files) {
    63.     my $ff = $basedir."/".$ARGV[3]."/".$f;
    64.     my $ok = 1;
    65.     foreach (@skip) {
    66.       if ($_ eq $ff) {
    67.     $ok = 0;
    68.       }
    69.     }
    70.       if ($ok == 1) {
    71.     print "Wysyłanie $ff\n";
    72.  
    73.     if ($p == 1) {
    74.     open RS, "perl $rsf $ff prem $prem[0] $prem[1] |";
    75.     }
    76.     elsif ($fff == 1) {
    77.       open RS, "perl $rsf $ff free |";
    78.     }
    79.     elsif ($c == 1) {
    80.       open RS, "perl $rsf $ff col $prem[0] $prem[1] |";
    81.     }
    82.     while (<RS>) {
    83.       chomp;
    84.       if ($_ =~ /^COMPLETE,\w+/) {
    85.         open FILE, ">>", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    86.         print FILE "$ff\n";
    87.         print "\nPoprawnie wysłano $ff\n";
    88.         close FILE;
    89.       }
    90.       elsif ($_ =~ /^SIZES=(\d+),(\d+)/) {
    91.         my $procent = ($1/$2)*100;
    92.         print "\rPostęp: ";printf "%.2f",$procent;print '%';
    93.       }
    94.     }
    95.     close RS;
    96.  
    97.     }
    98.     else { print "Pomijanie $ff\n"; }
    99.   }
    100.   print "Koniec\n";
    101. }
    102.  
    103. elsif ($ARGV[0] == 2) {
    104.   my $p;
    105.   my $c;
    106.   my $fff;
    107.   my @prem;
    108.  
    109.   unless ($ARGV[1] && $ARGV[2] && $ARGV[3]) {
    110.     die "Nieprawidłowe parametry\n";
    111.   }
    112.   else {
    113.     if ($ARGV[3] eq "prem") {
    114.       unless ($ARGV[4] && $ARGV[5]) {
    115.       die "Nie podano hasła/loginu do konta\n";
    116.     }
    117.       else {
    118.     $p = 1; $prem[0] = $ARGV[4]; $prem[1] = $ARGV[5]; print "Wybrano konto prem\n";
    119.       }
    120.     }
    121.     elsif ($ARGV[3] eq "col") {
    122.       unless ($ARGV[4] && $ARGV[5]) {
    123.       die "Nie podano hasła/loginu do konta\n";
    124.     }
    125.       else {
    126.     $c = 1; $prem[0] = $ARGV[5]; $prem[1] = $ARGV[5]; print "Wybrano konto col\n";
    127.       }
    128.     }
    129.     else { if ($ARGV[3] eq "free") { print "Wybrano konto free\n"; $fff = 1; } else { die "Wybrano złe konto\n"; } }
    130.   }
    131.   print "Wybrano opcję 2... Uruchamianie...\n";
    132.   chdir($basedir."/".$ARGV[2]) or die "Error: $!\n";
    133.   my @files = glob("*.$ARGV[1]");
    134.   open SKIP, "<", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    135.   chomp(my @skip = <SKIP>);
    136.   close SKIP;
    137.   foreach my $f (@files) {
    138.     my $ff = $basedir."/".$ARGV[2]."/".$f;
    139.     my $ok = 1;
    140.     foreach (@skip) {
    141.       if ($_ eq $ff) {
    142.     $ok = 0;
    143.       }
    144.     }
    145.       if ($ok == 1) {
    146.     print "Wysyłanie $ff\n";
    147.     if ($p == 1) {
    148.     open RS, "perl $rsf $ff prem $prem[0] $prem[1] |";
    149.     }
    150.     elsif ($fff == 1) {
    151.       open RS, "perl $rsf $ff free |";
    152.     }
    153.     elsif ($c == 1) {
    154.       open RS, "perl $rsf $ff col $prem[0] $prem[1] |";
    155.     }
    156.     while (<RS>) {
    157.       chomp;
    158.       if ($_ =~ /^COMPLETE,\w+/) {
    159.         open FILE, ">>", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    160.         print FILE "$ff\n";
    161.         print "\nPoprawnie wysłano $ff\n";
    162.         close FILE;
    163.       }
    164.       elsif ($_ =~ /^SIZES=(\d+),(\d+)/) {
    165.         my $procent = ($1/$2)*100;
    166.         print "\rPostęp: ";printf "%.2f",$procent;print '%';
    167.       }
    168.     }
    169.     close RS;
    170.     }
    171.     else { print "Pomijanie $ff\n"; }
    172.   }
    173.   print "Koniec\n";
    174. }
    175. elsif ($ARGV[0] == 3) {
    176.   my $p;
    177.   my $c;
    178.   my $fff;
    179.   my @prem;
    180.   unless ($ARGV[1] && $ARGV[2] && $ARGV[3]) {
    181.     die "Nieprawidłowe parametry\n";
    182.   }
    183.   else {
    184.     if ($ARGV[3] eq "prem") {
    185.       unless ($ARGV[4] && $ARGV[5]) {
    186.       die "Nie podano hasła/loginu do konta\n";
    187.     }
    188.       else {
    189.     $p = 1; $prem[0] = $ARGV[4]; $prem[1] = $ARGV[5]; print "Wybrano konto prem\n";
    190.       }
    191.     }
    192.     elsif ($ARGV[3] eq "col") {
    193.       unless ($ARGV[4] && $ARGV[5]) {
    194.       die "Nie podano hasła/loginu do konta\n";
    195.     }
    196.       else {
    197.     $c = 1; $prem[0] = $ARGV[4]; $prem[1] = $ARGV[5]; print "Wybrano konto col\n";
    198.       }
    199.     }
    200.     else { if ($ARGV[3] eq "free") { print "Wybrano konto free\n"; $fff = 1; } else { die "Wybrano złe konto\n"; } }
    201.   }
    202.  
    203.   my @files;
    204.   my @parts;
    205.   print "Wybrano opcję 3... Uruchamianie...\n";
    206.   chdir($basedir."/".$ARGV[2]) or die "Error: $!\n";
    207.   my @a = split /-/, $ARGV[1];
    208.   for (my $i = $a[0]; $i <= $a[1]; $i++) {
    209.     if ($i =~ /^(\d)$/) {
    210.       my $ii = 0; $ii .= $1;
    211.       push(@parts, $ii);
    212.     }
    213.     else { push(@parts, $i); }
    214.   }
    215.   my $basefile = glob("*.part$parts[0].rar");
    216.   $basefile =~ s/part\d+\.rar//;
    217.   foreach (@parts) { push(@files, $basefile."part".$_.".rar"); }
    218.   open SKIP, "<", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    219.   chomp(my @skip = <SKIP>);
    220.   close SKIP;
    221.  
    222.   foreach my $f (@files) {
    223.     my $ff = $basedir."/".$ARGV[2]."/".$f;
    224.     my $ok = 1;
    225.     foreach (@skip) {
    226.       if ($_ eq $ff) {
    227.     $ok = 0;
    228.       }
    229.     }
    230.       if ($ok == 1) {
    231.     print "Wysyłanie $ff\n";
    232.     if ($p == 1) {
    233.     open RS, "perl $rsf $ff prem $prem[0] $prem[1] |";
    234.     }
    235.     elsif ($fff == 1) {
    236.       open RS, "perl $rsf $ff free |";
    237.     }
    238.     elsif ($c == 1) {
    239.       open RS, "perl $rsf $ff col $prem[0] $prem[1] |";
    240.     }
    241.     while (<RS>) {
    242.       chomp;
    243.       if ($_ =~ /^COMPLETE,\w+/) {
    244.         open FILE, ">>", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    245.         print FILE "$ff\n";
    246.         print "\nPoprawnie wysłano $ff\n";
    247.         close FILE;
    248.       }
    249.       elsif ($_ =~ /^SIZES=(\d+),(\d+)/) {
    250.         my $procent = ($1/$2)*100;
    251.         print "\rPostęp: ";printf "%.2f",$procent;print '%';
    252.       }
    253.     }
    254.     close RS;
    255.     }
    256.     else { print "Pomijanie $ff\n"; }
    257.   }
    258.   print "Koniec\n";
    259. }
    260.  
    261. elsif ($ARGV[0] == 4) {
    262.   my $p;
    263.   my $c;
    264.   my $fff;
    265.   my @prem;
    266.     unless ($ARGV[1] && $ARGV[2]) {
    267.     die "Nieprawidłowe parametry\n";
    268.   }
    269.   else {
    270.     if ($ARGV[2] eq "prem") {
    271.       unless ($ARGV[3] && $ARGV[4]) {
    272.       die "Nie podano hasła/loginu do konta\n";
    273.     }
    274.       else {
    275.     $p = 1; $prem[0] = $ARGV[3]; $prem[1] = $ARGV[4]; print "Wybrano konto prem\n";
    276.       }
    277.     }
    278.     elsif ($ARGV[2] eq "col") {
    279.       unless ($ARGV[3] && $ARGV[4]) {
    280.       die "Nie podano hasła/loginu do konta\n";
    281.     }
    282.       else {
    283.     $p = 1; $prem[0] = $ARGV[3]; $prem[1] = $ARGV[4]; print "Wybrano konto col\n";
    284.       }
    285.     }
    286.     else { if ($ARGV[2] eq "free") { print "Wybrano konto free\n"; $fff = 1; } else { die "Wybrano złe konto\n"; } }
    287.   }
    288.   print "Wybrano opcję 4... Uruchamianie...\n";
    289.   open FILES, "<", "$ARGV[1]" or die "Error: $1\n";
    290.   chomp(my @files = <FILES>);
    291.   close FILES;
    292.   chdir($basedir) or die "Error: $!\n";
    293.  
    294.   open SKIP, "<", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    295.   chomp(my @skip = <SKIP>);
    296.   close SKIP;
    297.   foreach my $f (@files) {
    298.     my $ff = $basedir."/".$f;
    299.     my $ok = 1;
    300.     foreach (@skip) {
    301.       if ($_ eq $ff) {
    302.     $ok = 0;
    303.       }
    304.     }
    305.       if ($ok == 1) {
    306.     print "Wysyłanie $ff\n";
    307.     if ($p == 1) {
    308.     open RS, "perl $rsf $ff prem $prem[0] $prem[1] |";
    309.     }
    310.     elsif ($fff == 1) {
    311.       open RS, "perl $rsf $ff free |";
    312.     }
    313.     elsif ($c == 1) {
    314.       open RS, "perl $rsf $ff col $prem[0] $prem[1] |";
    315.     }
    316.     while (<RS>) {
    317.       chomp;
    318.       if ($_ =~ /^COMPLETE,\w+/) {
    319.         open FILE, ">>", "$ENV{HOME}/skiplist.txt" or die "Error: $!\n";
    320.         print FILE "$ff\n";
    321.         print "\nPoprawnie wysłano $ff\n";
    322.         close FILE;
    323.       }
    324.       elsif ($_ =~ /^SIZES=(\d+),(\d+)/) {
    325.         my $procent = ($1/$2)*100;
    326.         print "\rPostęp: ";printf "%.2f",$procent;print '%';
    327.       }
    328.     }
    329.     close RS;
    330.     }
    331.     else { print "Pomijanie $ff\n"; }
    332.   }
    333.   print "Koniec\n";
    334. }
    4. Nadajemy chmody.
    Kod (Bash):
    1. chmod 755 rs.pl
    5. Instalujemy screen.
    Kod (Bash):
    1. ipkg update
    2. ipkg install screen

    Skrypt mamy zainstalowany :)

    Odpalamy na screenie tak:

    - Pierwszy raz(tzn jesli nie masz uruchomionego screena). Przykładowo:
    Kod (Bash):
    1. screen -a
    2. cd rapidshare1
    3. perl rs.pl 1 Kaspersky rar Public/antywirusy free
    - Jeśli będąc na screenie chcesz wyjść z konsoli i zostawić uploadowanie na nocke wiciskasz CTRL+A+D

    - Jeśli bedziesz chciał wrócic do screena wpisujesz:
    Kod (Bash):
    1. screen -r
    - Jeżeli jesteś na screenie i chcesz otworzyć nowe "okienko" wciskasz CTRL+A+C

    - Jeżeli jesteś na screenie i masz wiele otwartych okienek, możesz się przełączać między nimi skrótami CTRL+A+N lub CTRL+A+P.

    - Jeżeli będąc na screenu z działającym skryptem i chcesz ten skrypt wyłączyć wciskasz CTRL+C.


    Jeżeli chcesz dostać help ze spisem komend itd. wpisujesz:
    Kod (Bash):
    1. perl rapidshare1/rs.pl

    Pliku rsapi.pl wcale nie uruchamiamy !

    Jeśli chcesz zobaczyć co juz zuploadowało wejdź na rapidshare.com lub
    plik generowany rsapiuploads.pl .

    Wszelkie prawa zastrzeżone C 2008, skrypt jaki i całe HOWTO wykonał dla was hypnosiss :)
    Rozpowszechnianie tylko za zgodą autora!
    Podziękowania za pomoc w stawianiu podstawowych kroków SILAS-owi

    Enjoy!
     
  2. Silas Mariusz
    Online

    Silas Mariusz SysOp Administrator

    Dołączył:
    5 Kwiecień 2008
    Wiadomości:
    6 017
    Miejscowość:
    Nowy Sącz
    Local Time:
    22:58
    Oceny:
    +1 338 / 30 / -5
    Followers:
    22
    QNAP:
    TVS-x71
    Ethernet:
    1 GbE
    TVS-x71 1 GbE
    Re: [HOWTO] Skrypt uploadu na serwery rapidshare (NOWOŚĆ)

    nazwijmy to v1 :)
    skrypt jest ok...
    ale dzis opublikwoalem Perl'a w QPKG ktory juz nie wymaga chroot'a i perl'a...
    ale wymaga zainstalowania screen'a z Optware

    czyli ...

    1) instalacja Optware QPKG + wlacznie Optware
    2) # ipkg install screen
    3) instalacja Perl QPKG
    ... zadzialaj w ten sposob...
     
  3. hypnosiss
    Offline

    hypnosiss Moderator Contributor

    Dołączył:
    6 Lipiec 2008
    Wiadomości:
    321
    Miejscowość:
    Polska, Wrocław
    Local Time:
    21:58
    Oceny:
    +28 / 0 / -0
    Followers:
    0
    QNAP:
    TS-109/209
    Ethernet:
    1 GbE
    TS-109/209 1 GbE
    Re: [HOWTO] Skrypt uploadu na serwery rapidshare (NOWOŚĆ)

    ok poprawione :)
     
  4. Silas Mariusz
    Online

    Silas Mariusz SysOp Administrator

    Dołączył:
    5 Kwiecień 2008
    Wiadomości:
    6 017
    Miejscowość:
    Nowy Sącz
    Local Time:
    22:58
    Oceny:
    +1 338 / 30 / -5
    Followers:
    22
    QNAP:
    TVS-x71
    Ethernet:
    1 GbE
    TVS-x71 1 GbE
    Re: [HOWTO] Skrypt uploadu na serwery rapidshare (NOWOŚĆ)

    <brawo>
     
  5. hypnosiss
    Offline

    hypnosiss Moderator Contributor

    Dołączył:
    6 Lipiec 2008
    Wiadomości:
    321
    Miejscowość:
    Polska, Wrocław
    Local Time:
    21:58
    Oceny:
    +28 / 0 / -0
    Followers:
    0
    QNAP:
    TS-109/209
    Ethernet:
    1 GbE
    TS-109/209 1 GbE

Poleć tę stronę