/prog/ - Biggest Case of Scheme Runtime Deployment

Name: Anonymous 2013-09-08 20:48

Pretty funny: http://philosecurity.org/2009/01/12/interview-with-an-adware-author

S: You wrote adware. You bastard.
M: [sheepishly] Yes, I did. I got to write half of it in Scheme, which probably means that I deployed more Scheme runtime than anybody else on the planet.

The section on Windows persistence is interesting.

Name: Anonymous 2013-09-08 21:41

>>5,6
I just looked at it to see about fixing it. Here's his BBCode function:

sub markup($$$) {
    my ($r, $index, $thread) = @_;
    $r =~ s/&gt;&gt;([0-9\-\,l]+)/<a href="${index}read\/${thread}\/$1">&gt;&gt;$1<\/a>/g;
    $r =~ s{([a-z]+?\:\/\/[\x21\x23-\x3B\x3D\x3F-\x5A\x5E\x5F\x61-\x7E]+?)(&lt;|&gt;|&quot;|&\#[0-9]+;|\Z|[^\x21\x23-\x3B\x3D\x3F-\x5A\x5E\x5F\x61-\x7E])}
           {'<a href="' . $1 . '">' . $1 . '</a>' . $2}eg;
    $r =~ s/^((\xE3\x80\x80).*?)(\n&gt;|\Z)/<span lang=\"ja\">$1<\/span>$3/ms if AUTO_ART;
    $r = (bbcode($r))[0];
    $r =~ s/\n/<br>/g;
    return $r; }

What the fuck?

Biggest Case of Scheme Runtime Deployment

1 Name: Anonymous 2013-09-08 20:48

7 Name: Anonymous 2013-09-08 21:41

Name: Anonymous 2013-09-08 20:48

Name: Anonymous 2013-09-08 21:41