Crack SAS with Perl in Ubuntu with SAS Linux Key

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

#!/usr/bin/perl -w

use English;
my $sec;    my $mday;   my $wday;
my $min;    my $mon;    my $yday;
my $hour;   my $year;   my $isdst;

my $time=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($time);

$year += 1900;
$mon  += 1;

if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
if (length($hour) == 1) {$hour = "0$hour";}
if (length($min)  == 1) {$min = "0$min";}
if (length($sec)  == 1) {$sec = "0$sec";}
$year=2016;#make fake time for SAS;

my $time_cmd="sudo -S <<<PASSWORD_HERE date $mon$mday$hour$min$year";
print "$time_cmd\n";
system($time_cmd);

#my $sas_cmd="sasbin -config '/home/user/sasproject/sasv9.cfg'  -work '/home/user/sas_temp'";
my $sas_cmd="/usr/local/SASHome/SASFoundation/9.3/bin/sas_en -RLANG -config '/home/osboxes/sasproject/sasv9.cfg'  -work '/home/osboxes/sas_temp'";
print "$sas_cmd\n";
system($sas_cmd);
#sleep(5);

$time=time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($time);
$mon  += 1;
if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
if (length($hour) == 1) {$hour = "0$hour";}
if (length($min)  == 1) {$min = "0$min";}
if (length($sec)  == 1) {$sec = "0$sec";}
#$year += 1900;
$year=2017;
#set back the system time;
system("sudo -S <<<PASSWORD_HERE date $mon$mday$hour$min$year\n");

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Ubuntu CRACK Perl With NTU

支持分享

这是修改系统日期吗