File: gen-ip-validator.pl

package info (click to toggle)
mimedefang 2.64-6
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 1,888 kB
  • ctags: 624
  • sloc: ansic: 8,338; perl: 6,380; sh: 1,555; tcl: 693; makefile: 71; php: 19
file content (31 lines) | stat: -rw-r--r-- 663 bytes parent folder | download 
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
 
#***********************************************************************
#
# gen-ip-validator.pl
#
# Generate a random number used to confirm IP address header.
#
# Copyright (C) 2000-2005 Roaring Penguin Software Inc.
#
# $Id$
#***********************************************************************

use Digest::SHA1;

$ctx = Digest::SHA1->new;

$data = "";
for ($i=0; $i<256; $i++) {
    $data .= pack("C", rand(256));
}
$data .= `ls -l; ps; date; uptime; uname -a`;

if (-r "/dev/urandom") {
    open(IN, "</dev/urandom");
    read(IN, $junk, 64);
    $data .= $junk;
    close(IN);
}

$ctx->add($data);
$d = $ctx->hexdigest;
print "X-MIMEDefang-Relay-$d\n";