Ergebnis 1 bis 2 von 2
  1. #1
    Capt'n Crunch
    Registriert seit
    10.07.2008
    Beiträge
    999

    Standard [p] schnell-gewinnen bot

    hi,
    versuche mir einen vorerst simplen bot für
    schnell-gewinnen.de zu schreiben.
    so sitze seit ca 4-5 stunden daran und hänge wohl an einem kleinen problem.
    ich will es ersteinmal anhand des "rentengewinnspiels" probieren:
    ein paar ausschnitte:
    Code:
    $ua = LWP::UserAgent->new;
    $cj = HTTP::Cookies->new(file => "cookies.txt", autosave => 1);
    $ua->cookie_jar($cj);
    login methode
    Code:
    sub login
    {
        my $content = $ua->request(GET "http://www.schnell-gewinnen.de/");
        $content = $ua->request(POST "http://www.schnell-gewinnen.de/login.php" , [ "userid" => $_[0], "passwort" => $_[1] , "submit_login" => ""] )->as_string;
        if($content=~ /.*Du hast dich erfolgreich angemeldet*/igs) { return "1"; }
        &schreibenInDatei($content);
        return ("Error, Login nicht erfolgreich.");
    }
    der login funktioniert auch soweit.
    problem liegt beim ausführen des gewinnspiels:
    Code:
    my $content = $ua->request(GET "http://www.schnell-gewinnen.de/redirect.php?pr_id=133&user_id=$id") -> as_string;
        #Session-ID    
        $content =~ s/.*(PHPSESSID.)(.*?)(\').*/$2/igs;
        my $sessid=$content;
        if(length($content)!=32) { return "Error mit Session-ID."; }
    geht nocht... fortsetzung:
    Code:
    $content = $ua->request(POST "http://www.rentengewinnspiel.net/index.php?PHPSESSID=$sessid" , [ "answer1" => "ja", "answer2" => "ja" , 
            "anrede" => "Herr",
            "vorname" => "Peter",
            "nachname" => "Winter",
            "email" => 'b15498@tyldd.com',
            "gebtag" => "04",
            "gebmonat" => "04",
            "gebjahr" => "1984",
            "agb" => "1",
            "agb2" => "1",
            "Submit" => "",
            "p_ref" => "webgains",
            "p_sub" => "webgains",
            "woher_kommen" => "frontdoor",
            "PHPSESSID" => $sessid,
            "ref_userid" => "",
            "land" => "DE",
            
        ] )->as_string;
    das sind alle post-variablen, die ich gefunden hab. der quelltext den ich zurückbekomm "speichert" alle eingaben wie name, anrede, geburtsdatum etc... aber ich werde nicht auf index2.php weitergeleitet, wie es per hand passiert.

    wenn ich mir den quelltext vom letzten codeaussschnitt zurückgeben lassen und im browser selbe ausführe funktioniert es... also kann mir eig nur ein postparameter auf der seite: http://www.rentengewinnspiel.net/ fehlen.
    oder hat jemand einen anderen tipp? würde den bot dann sharen.
    bitcoin. Banking Is Necessary. Banks Are Not. - by Lincoln6Echo

    Das ganze Mysql usw is mir zu viel arbeit um es zu lernen

  2. #2
    if(1x<>)!~/^(11+)\1+$/
    Registriert seit
    13.08.2007
    Beiträge
    524

    Standard

    Evtl Redirections automatisch annehmen lassen:
    Code:
    my $ua    = LWP::UserAgent->new
    (
        requests_redirectable => [ 'GET', 'POST' ]
    );


Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •