Examine individual changes

Abuse Filter navigation (Home | Recent filter changes | Examine past edits | Abuse log)
Jump to navigation Jump to search

This page allows you to examine the variables generated by the Abuse Filter for an individual change.

Variables generated for this change

VariableValue
Whether or not the edit is marked as minor (no longer in use) (minor_edit)
false
Edit count of the user (user_editcount)
0
Name of the user account (user_name)
'VOID'
Age of the user account (user_age)
22547
Page ID (page_id)
0
Page namespace (page_namespace)
0
Page title (without namespace) (page_title)
'AAAA'
Full page title (page_prefixedtitle)
'AAAA'
Action (action)
'edit'
Edit summary/reason (summary)
''
Old content model (old_content_model)
''
New content model (new_content_model)
'wikitext'
Old page wikitext, before the edit (old_wikitext)
''
New page wikitext, after the edit (new_wikitext)
'{{infobox proglang |name=AAAA |author=your inner daemons |paradigms=chaotic |memsys=tape-based |dimensions=one-dimensional |class=[[:Category:Turing incomplete|Turing incomplete]] }} ==Language Overview== AAAA operates on a tape called "The Tape of Perpetual Doom" or whatever name the implementor chooses these are the commands to operate on the tape are: {| class="wikitable" !Command !Description |- | style="text-align:center"| <code>AAAA</code> |Increments the pointer by one |- | style="text-align:center"| <code>AAAAA</code> |Decrements the pointer by one |- | style="text-align:center"| <code>AAAAAA</code> |Increments the pointed memory cell by one |- | style="text-align:center"| <code>AAAAAAA</code> |Decrements the pointed memory cell by one |- | style="text-align:center"| <code>AAAAAAAA</code> |Outputs the ASCII representation of the pointed cell |- | style="text-align:center"| <code>AAAAAAAAA</code> |Outputs "No one can hear you scream" or a similar message |- | style="text-align:center"| <code>ENDMYSUFFERING</code> |Corrupts the interpreter |- | style="text-align:center"| <code>ENDTHEIRSUFFERING</code> |Corrupts the interpreted file |} The language is case insensitive so you can really express yourself using those A's. On an invalid command the interpreter will stop the execution and start screaming. ==Examples== ===Kp[=== aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa ===Perl Interpreter=== #!/usr/bin/env perl # This interpreter is under the enterprise friendly BSD3.0 Licnese!!1!3 # Feel free to use it in your commercial applications!^!'+%!+%2' no warnings; die "YOU MUST GIVE ME A FILE TO CONSUME" if scalar @ARGV < 1; $| = 1; open AAAAA, '<', $ARGV[0] or die "CAN'T OPEN ZE FILEHANDLERSCHALEN"; binmode AAAAA, ':encoding(utf-8)'; my @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA; my $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA = 6194; my $fh; while ( !eof(AAAAA) ) { $_ = readline AAAAA; if (-e 'SEGFAULTRIGHTNOWYOUWORTHLESSPROGRAM') { print "It's too bad you can't segfault in Perl this behaviour will be emulated using state of the art convenient blockchain redundant APIs\nSegmentation fault\n"; exit 1; } foreach my $a (split / /) { if (lc $a =~ /^aaaa$/) { # > $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA++; } elsif (lc $a =~ /^aaaaa$/) { # < $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA--; } elsif (lc $a =~ /^aaaaaa$/) { # + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]++; } elsif (lc $a =~ /^aaaaaaa$/) { # - $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]--; } elsif (lc $a =~ /^aaaaaaaa$/) { # output printf "%c", "$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]"; $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] = 0; } elsif (lc $a =~ /^aaaaaaaaa$/) { # nohelp print "No one can hear you scream in this existential nightmare\n"; } elsif (lc $a =~ /^ENDMYSUFFERING/) { open $fh, '>', $0; corrupt $fh; } elsif (lc $a =~ /^ENDTHEIRSUFFERING/) { open $fh, '>', $ARGV[0]; corrupt $fh; } elsif ($a =~ /\n/) { } else { print "DE"; while (48194) { print 'A' x 12; print 'a' x 23; } } } } sub corrupt { my ($fh) = shift; for (my $v = 0; $v < 64; $v++) { my $var = rand; my $varr = rand; print $fh $varr x $var; } close $fh; }'
Unified diff of changes made by edit (edit_diff)
'@@ -1,1 +1,118 @@ +{{infobox proglang +|name=AAAA +|author=your inner daemons +|paradigms=chaotic +|memsys=tape-based +|dimensions=one-dimensional +|class=[[:Category:Turing incomplete|Turing incomplete]] +}} +==Language Overview== +AAAA operates on a tape called "The Tape of Perpetual Doom" or whatever name the implementor chooses these are the commands to operate on the tape are: + +{| class="wikitable" +!Command +!Description +|- +| style="text-align:center"| <code>AAAA</code> +|Increments the pointer by one +|- +| style="text-align:center"| <code>AAAAA</code> +|Decrements the pointer by one +|- +| style="text-align:center"| <code>AAAAAA</code> +|Increments the pointed memory cell by one +|- +| style="text-align:center"| <code>AAAAAAA</code> +|Decrements the pointed memory cell by one +|- +| style="text-align:center"| <code>AAAAAAAA</code> +|Outputs the ASCII representation of the pointed cell +|- +| style="text-align:center"| <code>AAAAAAAAA</code> +|Outputs "No one can hear you scream" or a similar message +|- +| style="text-align:center"| <code>ENDMYSUFFERING</code> +|Corrupts the interpreter +|- +| style="text-align:center"| <code>ENDTHEIRSUFFERING</code> +|Corrupts the interpreted file +|} + +The language is case insensitive so you can really express yourself using those A's. +On an invalid command the interpreter will stop the execution and start screaming. + +==Examples== +===Kp[=== + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa + aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa + +===Perl Interpreter=== + + #!/usr/bin/env perl + # This interpreter is under the enterprise friendly BSD3.0 Licnese!!1!3 + # Feel free to use it in your commercial applications!^!'+%!+%2' + no warnings; + die "YOU MUST GIVE ME A FILE TO CONSUME" if scalar @ARGV < 1; + $| = 1; + open AAAAA, '<', $ARGV[0] or die "CAN'T OPEN ZE FILEHANDLERSCHALEN"; + binmode AAAAA, ':encoding(utf-8)'; + my @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA; + my $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA = 6194; + my $fh; + while ( !eof(AAAAA) ) { + $_ = readline AAAAA; + if (-e 'SEGFAULTRIGHTNOWYOUWORTHLESSPROGRAM') { + print "It's too bad you can't segfault in Perl this behaviour will be emulated using state of the art convenient blockchain redundant APIs\nSegmentation fault\n"; + exit 1; + } + foreach my $a (split / /) { + if (lc $a =~ /^aaaa$/) { # > + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA++; + } elsif (lc $a =~ /^aaaaa$/) { # < + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA--; + } elsif (lc $a =~ /^aaaaaa$/) { # + + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]++; + } elsif (lc $a =~ /^aaaaaaa$/) { # - + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]--; + } elsif (lc $a =~ /^aaaaaaaa$/) { # output + printf "%c", "$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]"; + $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] = 0; + } elsif (lc $a =~ /^aaaaaaaaa$/) { # nohelp + print "No one can hear you scream in this existential nightmare\n"; + } elsif (lc $a =~ /^ENDMYSUFFERING/) { + open $fh, '>', $0; + corrupt $fh; + } elsif (lc $a =~ /^ENDTHEIRSUFFERING/) { + open $fh, '>', $ARGV[0]; + corrupt $fh; + } elsif ($a =~ /\n/) { + } else { + print "DE"; + while (48194) { + print 'A' x 12; + print 'a' x 23; + } + } + } + } + sub corrupt { + my ($fh) = shift; + for (my $v = 0; $v < 64; $v++) { + my $var = rand; + my $varr = rand; + print $fh $varr x $var; + } + close $fh; + } '
New page size (new_size)
6257
Old page size (old_size)
0
Lines added in edit (added_lines)
[ 0 => '{{infobox proglang', 1 => '|name=AAAA', 2 => '|author=your inner daemons', 3 => '|paradigms=chaotic', 4 => '|memsys=tape-based', 5 => '|dimensions=one-dimensional', 6 => '|class=[[:Category:Turing incomplete|Turing incomplete]]', 7 => '}}', 8 => '==Language Overview==', 9 => 'AAAA operates on a tape called "The Tape of Perpetual Doom" or whatever name the implementor chooses these are the commands to operate on the tape are:', 10 => '', 11 => '{| class="wikitable"', 12 => '!Command', 13 => '!Description', 14 => '|-', 15 => '| style="text-align:center"| <code>AAAA</code>', 16 => '|Increments the pointer by one', 17 => '|-', 18 => '| style="text-align:center"| <code>AAAAA</code>', 19 => '|Decrements the pointer by one', 20 => '|-', 21 => '| style="text-align:center"| <code>AAAAAA</code>', 22 => '|Increments the pointed memory cell by one', 23 => '|-', 24 => '| style="text-align:center"| <code>AAAAAAA</code>', 25 => '|Decrements the pointed memory cell by one', 26 => '|-', 27 => '| style="text-align:center"| <code>AAAAAAAA</code>', 28 => '|Outputs the ASCII representation of the pointed cell', 29 => '|-', 30 => '| style="text-align:center"| <code>AAAAAAAAA</code>', 31 => '|Outputs "No one can hear you scream" or a similar message', 32 => '|-', 33 => '| style="text-align:center"| <code>ENDMYSUFFERING</code>', 34 => '|Corrupts the interpreter', 35 => '|-', 36 => '| style="text-align:center"| <code>ENDTHEIRSUFFERING</code>', 37 => '|Corrupts the interpreted file', 38 => '|}', 39 => '', 40 => 'The language is case insensitive so you can really express yourself using those A's.', 41 => 'On an invalid command the interpreter will stop the execution and start screaming.', 42 => '', 43 => '==Examples==', 44 => '===Kp[===', 45 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 46 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 47 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa', 48 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 49 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 50 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 51 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 52 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa', 53 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 54 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 55 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 56 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa', 57 => ' aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaa aaaaaaaa', 58 => '', 59 => '===Perl Interpreter===', 60 => '', 61 => ' #!/usr/bin/env perl', 62 => ' # This interpreter is under the enterprise friendly BSD3.0 Licnese!!1!3', 63 => ' # Feel free to use it in your commercial applications!^!'+%!+%2'', 64 => ' no warnings;', 65 => ' die "YOU MUST GIVE ME A FILE TO CONSUME" if scalar @ARGV < 1;', 66 => ' $| = 1;', 67 => ' open AAAAA, '<', $ARGV[0] or die "CAN'T OPEN ZE FILEHANDLERSCHALEN";', 68 => ' binmode AAAAA, ':encoding(utf-8)';', 69 => ' my @AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA;', 70 => ' my $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA = 6194;', 71 => ' my $fh;', 72 => ' while ( !eof(AAAAA) ) {', 73 => ' $_ = readline AAAAA;', 74 => ' if (-e 'SEGFAULTRIGHTNOWYOUWORTHLESSPROGRAM') {', 75 => ' print "It's too bad you can't segfault in Perl this behaviour will be emulated using state of the art convenient blockchain redundant APIs\nSegmentation fault\n";', 76 => ' exit 1;', 77 => ' }', 78 => ' foreach my $a (split / /) {', 79 => ' if (lc $a =~ /^aaaa$/) { # >', 80 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA++;', 81 => ' } elsif (lc $a =~ /^aaaaa$/) { # <', 82 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA--;', 83 => ' } elsif (lc $a =~ /^aaaaaa$/) { # +', 84 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]++;', 85 => ' } elsif (lc $a =~ /^aaaaaaa$/) { # -', 86 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]--;', 87 => ' } elsif (lc $a =~ /^aaaaaaaa$/) { # output', 88 => ' printf "%c", "$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA]";', 89 => ' $AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA[$AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA] = 0;', 90 => ' } elsif (lc $a =~ /^aaaaaaaaa$/) { # nohelp', 91 => ' print "No one can hear you scream in this existential nightmare\n";', 92 => ' } elsif (lc $a =~ /^ENDMYSUFFERING/) {', 93 => ' open $fh, '>', $0;', 94 => ' corrupt $fh;', 95 => ' } elsif (lc $a =~ /^ENDTHEIRSUFFERING/) {', 96 => ' open $fh, '>', $ARGV[0];', 97 => ' corrupt $fh;', 98 => ' } elsif ($a =~ /\n/) {', 99 => ' } else {', 100 => ' print "DE";', 101 => ' while (48194) {', 102 => ' print 'A' x 12;', 103 => ' print 'a' x 23;', 104 => ' }', 105 => ' }', 106 => ' }', 107 => ' }', 108 => ' sub corrupt {', 109 => ' my ($fh) = shift;', 110 => ' for (my $v = 0; $v < 64; $v++) {', 111 => ' my $var = rand;', 112 => ' my $varr = rand;', 113 => ' print $fh $varr x $var;', 114 => ' }', 115 => ' close $fh;', 116 => ' }' ]
Unix timestamp of change (timestamp)
1533234307
Retrieved from "https://esolangs.org/wiki/Special:AbuseFilter/examine/log/7201"