Mercurial > repo
annotate bin/slashes @ 6586:3df02f76f03f
<lifthrasiir> ` (echo \'#!/bin/sh\'; echo \'echo Zarro Boogs Found.\') > bin/bugs; chmod a+x bin/bugs
| author | HackBot |
|---|---|
| date | Mon, 18 Jan 2016 07:18:13 +0000 |
| parents | 56dcce63901b |
| children | c0aac9581038 |
| rev | line source |
|---|---|
| 5643 | 1 #!/usr/bin/perl -w |
| 2 #By Ørjan Johansen, 2009-2012. This file is in the public domain. | |
| 3 | |
| 4 $| = 1; | |
| 5 my $l = 0; | |
| 6 | |
| 7 $_ = join '', <>; | |
| 8 while ($l < 512) { | |
| 9 if (s!^([^/\\]+)!! or s!^\\(.)!!s) { | |
| 10 $l += length($1); | |
| 11 print($1); | |
| 12 } | |
| 13 else { | |
| 14 if (s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s) { | |
| 15 my ($s,$d) = ($1,$2); | |
| 16 $s =~ s/\\(.)/$1/gs; | |
| 17 $d =~ s/\\(.)/$1/gs; | |
| 18 while (s/(?:\Q$s\E)/$d/) { | |
| 19 } | |
| 20 } | |
| 21 else { last; } | |
| 22 } | |
| 23 } |