SecureCRT 8.5.4 For Mac Cracked by xiaobo

#!/usr/bin/perl 
#===============================================================================
#
#         FILE: securecrt_linux_crack.pl
#
#        USAGE: ./securecrt_linux_crack.pl  
#
#  DESCRIPTION: securecrt_linux_crack
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: xiaobo_l
# ORGANIZATION: 
#      VERSION: 1.2
#      CREATED: 08/16/2015 13:26:00 
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use File::Copy qw(move);




sub license {
    print "\n".
    "License:\n\n".
    "\tName:\t\txiaobo_l\n".
    "\tCompany:\twww.boll.me\n".
    "\tSerial Number:\t03-91-324785\n".
    "\tLicense Key:\tAC33SN 4JHKFS 48KYUT MY8F24 AAKC1C HJYFXT 8P6S99 MRAUQ2\n".
    "\tIssue Date:\t02-12-2019\n\n\n";
}

sub usage { print "\n". "help:\n\n". "\tperl securecrt_linux_crack.pl <file>\n\n\n". "\tperl securecrt_linux_crack.pl /usr/bin/SecureCRT\n\n\n". "\n"; &license; exit; } &usage() if ! defined $ARGV[0] ; my $file = $ARGV[0]; open FP, $file or die "can not open file $!"; binmode FP; open TMPFP, '>', '/tmp/.securecrt.tmp' or die "can not open file $!"; my $buffer; my $unpack_data; my $crack = 0; while(read(FP, $buffer, 1024)) { $unpack_data = unpack('H*', $buffer); if ($unpack_data =~ m/785782391ad0b9169f17415dd35f002790175204e3aa65ea10cff20818/) { $crack = 1; last; } if ($unpack_data =~ s/6e533e406a45f0b6372f3ea10717000c7120127cd915cef8ed1a3f2c5b/785782391ad0b9169f17415dd35f002790175204e3aa65ea10cff20818/ ){ $buffer = pack('H*', $unpack_data); $crack = 2; } syswrite(TMPFP, $buffer, length($buffer)); } close(FP); close(TMPFP); if ($crack == 1) { unlink '/tmp/.securecrt.tmp' or die "can not delete files $!"; print "It has been cracked\n"; &license; exit 1; } elsif ($crack == 2) { move '/tmp/.securecrt.tmp', $file or die 'Insufficient privileges, please switch the root account.'; chmod 0755, $file or die 'Insufficient privileges, please switch the root account.'; print "crack successful\n"; &license; } else { die 'error'; }

wget http://download.boll.me/securecrt_linux_crack.pl

转载于:https://www.cnblogs.com/heycomputer/articles/11418750.html