REX

TEXT CRYPTOR & DECRYPTOR

1 ارسال در این موضوع قرار دارد

اینم یک اسکریپت پرل هستش برای دوستان عزیزمون که علاقه مند به یادگیری این زبان شیرین هستن

#!/usr/bin/perl 
    #BHG Text Cryptor & Decryptor Version Beta 
    #You Can Have Your Own Hash Code With Your Own Key  
      
    system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
    print "\n\t\t www.Black-hg.org\n\n"; 
    print "\n\n\t\t Welcome To BHG Encryptor - Decryptor\n"; 
    print "\n\n\t\tPlease Enter a Key:"; 
    $GetKey=<STDIN>; 
    chomp($GetKey); 
    my $key = "$GetKey"; 
    Menu:; 
    print "\n\n\n\t\t What Do you want to do ?"; 
    print "\n\t\t 1- Encrypt"; 
    print "\n\t\t 2-Decrypt"; 
    print "\n\t\tChoose:"; 
    $Menu=<STDIN>; 
    chomp ($Menu); 
    if ($Menu==1){ 
    system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
    print "\n\n\t\t\t Please Enter Your Text \n"; 
    print"Text:"; 
    $TEXT=<STDIN>; 
    chomp($TEXT); 
    print "\n"; 
    my $str = $TEXT; 
    my $encoded = xor_encode($str,$key); 
    system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
    print "\n\n\t\t Your Code Saved to Crypted.txt\n\n\n"; 
    open (TEXT, '>>Crypted.txt'); 
    print TEXT "$encoded"; 
    close (TEXT); 
    print "\nwww.Black-hg.org  || Code by G3n3Rall"; 
    print "Exit\n"; 
    exit; 
    } 
    if($Menu==2){ 
    system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
    print "Please Wait ... "; 
    print "\n"; 
    print "\n\n\t\t Opening Crypted.txt \n"; 
    open (Decrypt, "<Crypted.txt") or die "\n\tSry NOT FOUND Crypted.txt \n"; 
    while (<Decrypt>){ 
    my $encoded = $_; 
    my $decoded = xor_encode($encoded,$key); 
    system(($^O eq 'MSWin32') ? 'cls' : 'clear'); 
    print "\n\n\t\t Decoded ! \n\n"; 
    print "\nYour Text:\n"; 
    print "$decoded"; 
      
    print "\n\n\n"; 
    print "\nwww.Black-hg.org  || Code by G3n3Rall"; 
    print "Exit\n"; 
    exit; 
    } 
    } 
      
    sub xor_encode { 
       my ($str, $key) = @_; 
       my $enc_str = ''; 
       for my $char (split //, $str){ 
           my $decode = chop $key; 
           $enc_str .= chr(ord($char) ^ ord($decode)); 
           $key = $decode . $key; 
       } 
      return $enc_str; 
    } 
      
    if ($Menu=! 1 || 2) { 
      
    print "\n\n\t\t INVALID ID\n "; 
    goto Menu; 
    } 
C0d3!Nj3ct!0n و P0!s0nC0d3 پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری