forked from urbanadventurer/WhatWeb
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Perl.rb
49 lines (41 loc) · 1.15 KB
/
Perl.rb
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
##
# This file is part of WhatWeb and may be subject to
# redistribution and commercial restrictions. Please see the WhatWeb
# web site for more information on licensing and terms of use.
# http://www.morningstarsecurity.com/research/whatweb
##
# Version 0.2 #
# Added content-type application/perl match
##
Plugin.define "Perl" do
author "Brendan Coles <bcoles@gmail.com>" # 2010-10-26
version "0.2"
description "Perl is a highly capable, feature-rich programming language with over 22 years of development. - homepage: http://www.perl.org/"
# About 309934 ShodanHQ results for "server: perl/v" @ 2010-10-26
examples %w|
168.158.43.171
213.199.225.48
132.203.210.197
64.62.215.124
114.31.74.154
209.195.7.213
83.169.38.211
85.214.34.154
212.73.155.133
89.36.142.15
78.137.165.66
216.120.243.74
216.40.254.78
195.211.68.24
64.91.245.238
|
# Passive #
def passive
m=[]
# HTTP Server Header
m << { :version=>@headers["server"].to_s.scan(/[^\r^\n]*Perl\/v([^\s^\r^\n]+)/i).flatten } if @headers["server"].to_s =~ /[^\r^\n]*Perl\/v([^\s^\r^\n]+)/i
# HTTP Content-Type Header
m << { :name=>"application/perl" } if @headers["content-type"] =~ /application\/perl/i
m
end
end