Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
   
Konu: windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
Ebu Azeri
*
avatar
Teğmen
Durum: Çevrimdışı
Seviye Puanı: 8
Yaşam Puanı: 9 / 182
Deneyim: 29 / 100
Rep Sayısı: 6
Mesaj Sayısı: 87
Üyelik Tarihi: 09.11.2013
     
Yorum: #1
windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
13.04.2014 20:40




activ perl indirmek icin

Kod:
#!/usr/bin/perl

# MD5 Kirici ///azeKBTlamer///

$ver = "01";

$dbgtmr = "1"; #Intervall of showing the current speed + lastpassword in seconds.



if ($dbgtmr<=0){ die "Set dbgtmr to a value >=1 !\n";};
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);

if ($ARGV[0]=~"a") {
$alpha = "abcdefghijklmnopqrstuvwxyz";}
if ($ARGV[0]=~"A") {
$alpha = $alpha. "ABCDEFGHIJKLMNOPQRSTUVWXYZ";}
if ($ARGV[0]=~"d") {
$alpha = $alpha."1234567890";}

if ($ARGV[0]=~"x") {

$alpha = $alpha. "!\"\$%&/()=?-.:\\*'-_:.;,";}

if ($alpha eq "" or $ARGV[3] eq "") {usage();};
if (length($ARGV[3]) != 32) { die "Sorry but it seems that the MD5 is not valid!\n";};

print "Selected charset for attack: '$alpha\'\n";
print "Going to Crack '$ARGV[3]'...\n";

for (my $t=$ARGV[1];$t<=$ARGV[2];$t++){
crack ($t);
}

sub usage{
print "\n\nMD5 Kirici ///azeKBTlamer/// v.$ver\n";
print "http://turkhackteam.net\/\n\n";
print "Kullanimi\n";

print " a = {'a','b','c',...}\n";
print " A = {'A','B','C',...}\n";
print " d = {'1','2','3',...}\n";
print " x = {'!','\"',' ',...}\n";
print "ORNEKLER\n";
print "md5.pl ad 1 3 900150983cd24fb0d6963f7d28e17f72\n";
print "md5.pl aA 3 3 900150983cd24fb0d6963f7d28e17f72\n";
print "md5.pl aAdx 1 10 900150983cd24fb0d6963f7d28e17f72\n";
die "Cikma...\n";

}

sub crack{
$CharSet = shift;
@RawString = ();
for (my $i =0;$i<$CharSet;$i++){ $RawString[i] = 0;}

$Start = gettimeofday();
do{
  for (my $i =0;$i<$CharSet;$i++){
   if ($RawString[$i] > length($alpha)-1){
    if ($i==$CharSet-1){
    print "Bruteforcing done with $CharSet Chars. No Results.\n";
    $cnt=0;
    return false;
   }
   $RawString[$i+1]++;
   $RawString[$i]=0;
   }
  }

###################################################

   $ret = "";
   for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
   $hash = md5_hex($ret);
   $cnt++;
   $Stop = gettimeofday();
   if ($Stop-$Start>$dbgtmr){
    $cnt = int($cnt/$dbgtmr);
    print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
    $cnt=0;
    $Start = gettimeofday();
   }
            print "$ARGV[3] != $hash ($ret)\n";
   if ($ARGV[3] eq $hash){
    die "\n**** Password Cracked! => $ret\n";
   }

###################################################

  #checkhash($CharSet)."\n";

  $RawString[0]++;
}while($RawString[$CharSet-1]<length($alpha));
}

sub checkhash{
$CharSet = shift;
$ret = "";
for (my $i =0;$i<$CharSet;$i++){ $ret = $ret . substr($alpha,$RawString[$i],1);}
$hash = md5_hex($ret);
$cnt++;
$Stop = gettimeofday();
if ($Stop-$Start>$dbgtmr){
  $cnt = int($cnt/$dbgtmr);
  print "$cnt hashes\\second.\tLast Pass '$ret\'\n";
  $cnt=0;
  $Start = gettimeofday();
}

if ($ARGV[3] eq $hash){
  die "\n**** Password Cracked! => $ret\n";
}




}
(Bu konu en son: 13.04.2014 Tarihinde, Saat: 20:45 düzenlenmiştir. Düzenleyen: H4CK4L.)
Alinti
Mentalistler
*
avatar
Sivile Alındı
Durum: Çevrimdışı
Seviye Puanı: 25
Yaşam Puanı: 274 / 608
Deneyim: 35 / 100
Rep Sayısı: 190
Mesaj Sayısı: 792
Üyelik Tarihi: 02.10.2013
     
Yorum: #2
Cvp: windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
13.04.2014 21:01
saolasın ama keşke bu kodlama sana ait olaydı
Alinti
Ebu Azeri
*
avatar
Teğmen
Durum: Çevrimdışı
Seviye Puanı: 8
Yaşam Puanı: 9 / 182
Deneyim: 29 / 100
Rep Sayısı:
Mesaj Sayısı: 87
Üyelik Tarihi: 09.11.2013
     
Yorum: #3
Cvp: windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
13.04.2014 21:04
bana ait dostum
Alinti
M4M00D
*
avatar
Teğmen - Ex
Durum: Çevrimdışı
Seviye Puanı: 17
Yaşam Puanı: 84 / 401
Deneyim: 4 / 100
Rep Sayısı: 11
Mesaj Sayısı: 333
Üyelik Tarihi: 28.03.2014
     
Yorum: #4
Cvp: windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
18.04.2014 16:20
sağol işime yarayacak bi konu Smile
Alinti
ERMİŞ
*
avatar
Sivile Alındı
Durum: Çevrimdışı
Seviye Puanı: 19
Yaşam Puanı: 133 / 458
Deneyim: 34 / 100
Rep Sayısı: 82
Mesaj Sayısı: 434
Üyelik Tarihi: 26.05.2014
      
Yorum: #5
Cvp: windowsda exploit kullanmakla md5 kirilmasi // videolu anlattim benem
01.06.2014 18:26
işime yaradı eyw
Alinti



1 Ziyaretçi