control userpasswords2
net user "%UserName%" ""{Enter}This "HTTP Digest Authentication" example from wikipedia was just too good. I had to post this here - a real collector's item! ;)
Step 3 has the crucial part of the whole process - the inclusion of the server's nonce into the MD5 hash computation, which refutes replay attacks.
1 . Client request (no authentication):
GET /dir/index.html HTTP/1.0
Host: localhost
2. Server response:
HTTP/1.0 401 Unauthorised
Server: HTTPd/0.9
Date: Sun, 10 Apr 2005 20:26:47 GMT
WWW-Authenticate: Digest realm="testrealm@host.com",
qop="auth,auth-int",
nonce="dcd98b7102dd2f0e8b11d0f600bfb0c093",
opaque="5ccc069c403ebaf9f0171e9517f40e41"
Content-Type: text/html
Content-Length: 311
"http://www.w3.org/TR/1999/REC-html401-19991224/loose.dtd">
3. Client request (user name "Mufasa", password "Circle Of Life"):
GET /dir/index.html HTTP/1.0
Host: localhost
Authorization: Digest username="Mufasa",
realm="testrealm@host.com",
nonce="dcd98b7102dd2f0e8b11d0f600bfb0c093",
uri="/dir/index.html",
qop=auth,
nc=00000001,
cnonce="0a4f113b",
response="6629fae49393a05397450978507c4ef1",
opaque="5ccc069c403ebaf9f0171e9517f40e41"
4. Server response:
HTTP/1.0 200 OK
Server: HTTPd/0.9
Date: Sun, 10 Apr 2005 20:27:03 GMT
Content-Type: text/html
Content-Length: 7984
(source: http://en.wikipedia.org/wiki/Digest_access_authentication)
Let's say that you want to know whether module Tie::Hash is installed. To find out, execute the following from the command line:
perl -MTie::Hash -e 1
unless ( arrays_are_equal (\@tmp1, \@tmp2) ){
print "\ntmp1 and tmp2 are not equal!\n";
}
else {
print "\ntmp1 and tmp2 are indeed equal!\n";
}
sub arrays_are_equal {
my ($first, $second) = @_;
no warnings; # silence spurious -w undef complaints
return 0 unless @$first == @$second;
for (my $i = 0; $i < @$first; $i++) {
return 0 if $first->[$i] ne $second->[$i];
}
return 1;
}
my $ReIpNum = qr{([01]?\d\d?|2[0-4]\d|25[0-5])};
my $ReIpAddr = qr{^$ReIpNum\.$ReIpNum\.$ReIpNum\.$ReIpNum$};
my %ips = ('0.0.0.0' => 1,
'1.2.3.4' => 1,
'255.255.255.255' => 1,
'000.34.2000.2' => 0,
'' => 0,
'24.23.23.' => 0);
for my $ip(keys %ips) {
die "Failed: $ip"
unless (($ip =~ m{$ReIpAddr}) == $ips{$ip});
print "$ip passed\n";
}
#!/bin/perl
use Regexp::Common;
while() {
if(/$RE{net}{IPv4}{dec}{-keep}/) {
print "IP Address: $1\n";
}
}
__DATA__
24.113.50.245
0.42.523.2
255.242.52.4
2.5.3
#!/usr/bin/perl
use IO::Socket;
my $dest = shift;
my $port = shift;
my $message;
my $line;
my $sock = IO::Socket::INET -> new ( PeerAddr => $dest, PeerPort => $port, Proto => "tcp" ) or die "Could not establish TCP connection: $!";
$sock->autoflush(1);
while (1)
{
$message = <stdin>;
print $sock $message;
while ($line = <$sock>)
{
print $line;
}
}
close $sock;
This mail relay must accept SMTP connection from your host and must accept relaying. To check if the mail relay is working try telnet mailrelay.domain 25 .... answer from mail relay ..... helomail from: root@ rcpt to: @ data mail test from unix . mail server should answer something like mail sent. If this work you can try with a normal mail client like mailx -s "subject" @ mail test from unix . To check if this has work look at /var/adm/syslog/mail.log you should see a couple of lines stating the mail has been accepted locally and sent to the relay and accepted.
use strict;
use warnings;
use Tie::File;
use Fcntl;
sub alphabetically { lc $a cmp lc $b }
my $inputfile = shift;
unless ($inputfile)
{
print "\nUSAGE:\n$0 \n\n\n\n";
exit 0;
}
my @contents;
tie (@contents, 'Tie::File', $inputfile, mode=>O_RDONLY) or die "Can't open $inputfile: $!\n\n\n\n";
#open (MYFILE, $inputfile) || die " $! ";
#my @contents = ;
#close(MYFILE);
my @addresses; my $line; my $x; my %seen = ();
foreach $line (@contents) {
if ( $line =~ m/([a-zA-Z]+\.[a-zA-Z]+\@calsoftinc\.com)/ )
{
if ( $1=~m/ambar/)
{
next;
}
else { $seen{$1}++; } #use a hash to automatically get a unique list
}
}
foreach $x (keys %seen) { unshift(@addresses, "$x\n"); }
print sort alphabetically @addresses;
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters
process >>file 2>&1
process >file 2>&1will have stderr and stdout go to
process 2>&1 >filewill have stdout go to