__ __ __ __ _____ _ _ _____ _ _ _
| \/ | \ \ / / | __ \ (_) | | / ____| | | | |
| \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | |
| |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | |
| | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | |
|_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1
if you need WebShell for Seo everyday contact me on Telegram
Telegram Address : @jackleet
For_More_Tools:
package TieEvil;
# FCGI tied with a scalar ref object, which breaks when you
# call open on it. Emulate that to test the workaround:
use Carp ();
sub TIEHANDLE
{
my $class = shift;
my $fh = \(my $scalar); # this is evil and broken
return bless $fh,$class;
}
sub EOF { 0 }
sub TELL { length ${$_[0]} }
sub FILENO { -1 }
sub SEEK { 1 }
sub CLOSE { 1 }
sub BINMODE { 1 }
sub OPEN { Carp::confess "unimplemented" }
sub READ { $_[1] = substr(${$_[0]},$_[3],$_[2]) }
sub READLINE { "hello world\n" }
sub GETC { substr(${$_[0]},0,1) }
sub PRINT {
my ($self, @what) = @_;
my $new = join($\, @what);
$$self .= $new;
return length $new;
}
sub UNTIE { 1 }; # suppress warnings about references
1;