1. #!/usr/bin/perl 
  2. #===============================================================================
  3. #
  4. #         FILE: securecrt_linux_crack.pl
  5. #
  6. #        USAGE: ./securecrt_linux_crack.pl  
  7. #
  8. #  DESCRIPTION: securecrt_linux_crack
  9. #
  10. #      OPTIONS: ---
  11. # REQUIREMENTS: ---
  12. #         BUGS: ---
  13. #        NOTES: ---
  14. #       AUTHOR: xiaobo_l
  15. # ORGANIZATION: 
  16. #      VERSION: 1.2
  17. #      CREATED: 08/16/2015 13:26:00 
  18. #     REVISION: ---
  19. #===============================================================================
  21. use strict;
  22. use warnings;
  23. use File::Copy qw(move);
  28. sub license {
  29.     print "\n".
  30.     "License:\n\n".
  31.     "\tName:\t\txiaobo_l\n".
  32.     "\tCompany:\twww.boll.me\n".
  33.     "\tSerial Number:\t03-94-294583\n".
  34.     "\tLicense Key:\tABJ11G 85V1F9 NENFBK RBWB5W ABH23Q 8XBZAC 324TJJ KXRE5D\n".
  35.     "\tIssue Date:\t04-20-2017\n\n\n";
  36. }
  38. sub usage {
  39.     print "\n".
  40.     "help:\n\n".
  41.     "\tperl securecrt_linux_crack.pl <file>\n\n\n".
  42.     "\tperl securecrt_linux_crack.pl /usr/bin/SecureCRT\n\n\n".
  43.     "\n";
  45.     &license;
  47.     exit;
  48. }
  49. &usage() if ! defined $ARGV[0] ;
  52. my $file = $ARGV[0];
  54. open FP, $file or die "can not open file $!";
  55. binmode FP;
  57. open TMPFP, '>', '/tmp/.securecrt.tmp' or die "can not open file $!";
  59. my $buffer;
  60. my $unpack_data;
  61. my $crack = 0;
  63. while(read(FP, $buffer, 1024)) {
  64.     $unpack_data = unpack('H*', $buffer);
  65.     if ($unpack_data =~ m/785782391ad0b9169f17415dd35f002790175204e3aa65ea10cff20818/) {
  66.         $crack = 1;
  67.         last;
  68.     }
  69.     if ($unpack_data =~ s/6e533e406a45f0b6372f3ea10717000c7120127cd915cef8ed1a3f2c5b/785782391ad0b9169f17415dd35f002790175204e3aa65ea10cff20818/ ){
  70.         $buffer = pack('H*', $unpack_data);
  71.         $crack = 2;
  72.     }
  73.     syswrite(TMPFP, $buffer, length($buffer));
  74. }
  76. close(FP);
  77. close(TMPFP);
  79. if ($crack == 1) {
  80.         unlink '/tmp/.securecrt.tmp' or die "can not delete files $!";
  81.         print "It has been cracked\n";
  82.         &license;
  83.         exit 1;
  84. } elsif ($crack == 2) {
  85.         move '/tmp/.securecrt.tmp', $file or die 'Insufficient privileges, please switch the root account.';
  86.         chmod 0755, $file or die 'Insufficient privileges, please switch the root account.';
  87.         print "crack successful\n";
  88.         &license;
  89. } else {
  90.     die 'error';
  91. }
文档更新时间: 2018-12-26 11:57   作者：张尚