• Sky
  • Blueberry
  • Slate
  • Blackcurrant
  • Watermelon
  • Strawberry
  • Orange
  • Banana
  • Apple
  • Emerald
  • Chocolate
  • Charcoal
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; 
    } 
P0!s0nC0d3 و C0d3!Nj3ct!0n پسند شده است

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


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

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

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

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

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


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

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

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


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

درباره ی ما

تیم امنیتی گارد ایران یک گروه مستقل است که قوانین آن با خط مشی جمهوری اسلامی ایران مغایرت ندارد. تیم امنیتی گارد ایران از سال 1393 فعالیت خود را آغاز کرد و هدف این تیم تامین امنیت سایت ها و سرورهای ایرانی است. تیم ما همیشه برای دفاع از مرزهای سایبری سرزمین عزیزمان ایران آماده است.