Fake Adsense

Published 2006-03-03, 23:52

Wirklich interessant was man so alles auf der Festplatte hat. Die Datei ist von Januar 2004 und nannte sich „fake-adsense.txt“. Ich bezweifle dass es jemals funktioniert hat…

#!/usr/bin/perl
#
# grab ad sensation – gas.pl
# version 1.01
#
# This software is PUBLIC DOMAIN. You may copy it, use it, burn it, insert
# it nasally, take it and sell it as your own, feed it to goats, or whatever.
# No restrictions whatsoever. Also, this software comes with NO WARRANTY,
# as it is UNLICENSED and IN THE PUBLIC DOMAIN. If you hurt yourself or your
# data with it, that’s more or less like you picked up a BIG ROCK off of the
# street and HIT YOURSELF IN THE HEAD WITH IT repeatedly like a COMPLETE
# and TOTAL RETARD.
#
# …Anyway, have fun.
#
# Oh, and don’t actually use this. That would be silly.

use strict;
use LWP::UserAgent;

#http://pagead2.googlesyndication.com/pagead/ads?client=ca-sourceforge_120x600&random=1060329231603&hl=en&adsafe=high&format=120×600&output=html&url=http%3A//sourceforge.net/

my $google_page_url = ‚http%3A//sourceforge.net/‘;
my $google_page = ‚http://sourceforge.net/‘;
my $google_ad_client = ’sourceforge_120x600′;
my $google_ad_width = 120;
my $google_ad_height = 600;
my $google_ad_language = „en“;

my $seconds_delay = 40;
my $seconds_delay_variance = 10;

#
#
#

my $google_ad_base = ‚http://pagead.googlesyndication.com‘;

# this maybe should actually parse this javascript at some point in the future
my $google_js_url = ‚http://pagead.googlesyndication.com/ca/show_ads.js‘;

my $google_ad_url = ‚http://pagead2.googlesyndication.com/pagead/ads?client=ca-‚ . $google_ad_client . ‚&format=‘ . $google_ad_width . „x“ . $google_ad_height . ‚&random=‘ . time() . ‚&hl=‘ . $google_ad_language . ‚&url=‘ . $google_page_url . ‚&adsafe=high&output=html‘;

#print $google_ad_url . „\n“;
my @agentlist = (‚Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.4; MultiZilla v1.4.0.4A) Gecko/20030624‘,
‚Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.4b) Gecko/20030504 Mozilla Firebird/0.5+ StumbleUpon/1.63‘,
‚Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:1.2) Gecko/20021126‘,
‚Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.3) Gecko/20030312‘,
‚Mozilla/5.0 (Windows; U; WinNT4.0; en-US; rv:1.2) Gecko/20021126‘,
‚Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.2a) Gecko/20020910‘,
‚Mozilla/5.0 (X11; U; Linux 2.4.3-20mdk i586; en-US; rv:0.9.1) Gecko/20010611‘,
‚Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461)‘,
‚Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)‘,
‚Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)‘,
‚Mozilla/4.0 (compatible; MSIE 5.22; Mac_PowerPC)‘,
‚Mozilla/4.0 (compatible; MSIE 5.0; Windows NT; DigExt)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0; T312461)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 4.0)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 4.0; .NET CLR 1.0.2914)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows 95)‘,
‚Mozilla/4.0 (compatible; MSIE 5.13; Mac_PowerPC)‘,
‚Mozilla/4.0 (compatible; MSIE 5.5; Windows 95; BCD2000)‘,
‚Mozilla/4.0 (compatible; MSIE 5.0; Mac_PowerPC; e504460WanadooNL)‘,
‚Mozilla/2.0 (compatible; MSIE 3.02; Windows CE; 240×320)‘,
‚Mozilla/5.0 (Macintosh; U; PPC Mac OS X; en-US; rv:1.0.2) Gecko/20030208 Netscape/7.02‘,
‚Mozilla/5.0 (Windows; U; WinNT4.0; en-CA; rv:0.9.4) Gecko/20011128 Netscape6/6.2.1‘,
‚Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:0.9.4) Gecko/20011128 Netscape6/6.2.1‘,
‚Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.4.1) Gecko/20020314 Netscape6/6.2.2‘,
‚Mozilla/5.0 (X11; U; FreeBSD 5.0 i686)‘,
‚Mozilla/4.77 [en] (Win95; U)‘,
‚Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.0) Opera 7.02 Bork-edition [en]‘,
‚Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 4.0) Opera 7.0 [en]‘,
‚Mozilla/4.0 (compatible; MSIE 5.0; Windows 2000) Opera 6.0 [en]‘,
);

sub reagent {
return $agentlist[rand(@agentlist)];
}

my $ua = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, ‚POST‘;
$ua->timeout(10);

my $thisagent;
my $response;
my $theseads;

while (1) {
my $adcount = 0;
$thisagent = reagent();
$ua->agent($thisagent);

#$response = $ua->get($google_js_url, Referer => $google_page);
# if ($response->is_success) {
# } else {
# print $response->error_as_HTML;
# }

$response = $ua->get($google_ad_url, Referer => $google_page);
if ($response->is_success) {
} else {
print $response->error_as_HTML;
}

$theseads = $response->content;
while ($theseads =~ /href=“(\S*?)“/g) {
my $response = $ua->get($1, Referer => $google_page);
if ($response->is_success) {
#print „Got ad from $1\n“;
$adcount++;
print „#“;
} else {
print „failed to get ad from $1\n“;
print $response->error_as_HTML;
}
}
print “ $adcount\n“;
sleep ($seconds_delay – $seconds_delay_variance + rand(2*$seconds_delay_variance));
}

IE6 & Cookie-Probleme

Published 2006-03-03, 23:38

< ? header("P3P: CP=\"CUR ADM OUR NOR STA NID\""); ?>

Gefunden ganz tief verbuddelt im Ordner “Eigene Dateien”, ist wenn ich mich recht erinnere die lascheste P3P-Policy, die es so gibt und dafür sorgt, dass der IE6 auch in den Standardeinstellungen Cookies in iFrames und ähnlichem annimmt.

Magic Link

Published 2006-03-03, 23:32

Magic Link

<script language="JavaScript">
<!--
function swap_content( span ) {
displayType = ( document.getElementById( span ).style.display == 'none' ) ? 'block' : 'none';
document.getElementById( span ).style.display = displayType;
}
//-->
</script>

<a href="#" onclick="swap_content('zusatz'); return false;"><b>Magic Link</b></a><br />
<span id="zusatz" style="display: none">Hidden Text</span>

(Gefunden ganz tief verbuddelt im Ordner “Eigene Dateien”)

Effektiveres Geldmanagement?

Published 2006-03-03, 23:11

Gibt es eigentlich ein Banking-Programm mit dem man seine Einnahmen und Ausgaben taggen und ordnen kann?

Es wäre doch praktisch, dem Geld gleich einen Verwendungszweck zuordnen zu können, bestimmte Sparsummen verfolgen zu können und ähnlichen Kram. Virtuelle Unterkonten, automatische Zahlungszuweisungen, automatisches „abzwacken“ von Versicherungs- und Steuerbeträgen und vieles mehr wäre in einer einfachen Desktopanwendung auf Basis eines stinknormalen Bankkontos möglich.

(Idee „Bank-Ordner“ aus Mai 2002, gefunden ganz tief verbuddelt im Ordner „Eigene Dateien“)

Pause

Published 2006-03-01, 22:37

Veränderung, Ziele

berechenbar

Published 2006-03-01, 03:04

Can’t connect to database (2002):
Can’t connect to local MySQL server through socket ‚/tmp/mysql.sock‘ (61)

2006-03-01 02:02:44 execution of /publishers/login.php failed

grml

Flixster

Published 2006-03-01, 02:15

Schön, wenn Ideen, die schon lange im Hinterkopf herumspuken, endlich umgesetzt werden. Dann kann man sie endlich beiseite legen:

http://www.flixster.com/

Flixster versucht über die Film-Bewertungen der als Freunde markierten Personen Empfehlungen auszusprechen und damit das Risiko zu mindern, einen schlechten Film zu sehen.

Dem RSS-Blogger Siegfried Hirsch kommt das alles ein wenig zu glatt vor. Mich stört eher das miese Layout und vor allem die riesigen Werbebanner. Aber immerhin gibts nun sowas. Jetzt noch ein wenig flickr und edgeio.com reinmischen und wir haben einen netten Service.

Skilifte sind doof

Published 2006-02-27, 17:47

Nur weil Rosenmontag ist, muss man doch nicht gleich das Flutlichtfahren ausfallen lassen. Dumme Skilifte.

Und noch ein kleiner SEO-Gefallen: Stollenwald

Von wegen Vogelgrippe…

Published 2006-02-20, 20:36

http://andersdrengen.dk/endofworld.swf

argh

Published 2006-02-17, 12:37

Weiter schicken!!! Sonst kostet jede ICQ Nachricht von dir 0,10€! Kein Witz!!!(quelle:www.icq.com).Wenn du diese Nachricht nicht an ALLE aus deiner ICQ Kontaktliste schickst, auch zu mir zurück, wird es nach 24Std. in Kraft treten und du musst für jede Nachricht Geld bezahlen. Das ist sicher kein Scherz!
Eure ICQ Community

Hätte nicht gedacht, dass jemand über 18 noch auf so einen Scheiss reinfällt.

22 queries. 0,267 seconds.