#!/bin/bash
for i in 1 2 3 4 5
do
   echo "Number $i"
done

1
2
3
4
5

#!/bin/bash
for i in $(seq 1 2 20)
do
   echo "Number $i"
done

1
3
5
7
9
11
13
15
17
19

#!/bin/bash
for (( c=1; c<=5; c++ ))
do
 echo "Number $c"
done

#!/bin/bash
for (( ; ; ))
do
   echo "infinite loops [ hit CTRL+C to stop]"
done

#!/bin/bash
for file in /etc/*
do
     echo $file
done

#!/usr/bin/perl
# John Homer H Alvero
# Jan. 11, 2004 

use HTTP::Date;

my $Line;
my @Record;
my $SearchTime = $ARGV[1]; #$ARGV[1];
my $SearchTimestamp = str2time($SearchTime); 

sub ProcessRec {
   my $Header;
   my %AuthRec; 
   my $Fieldname;
   my $Value;
   my $Login;
   my $Logout;
 
   $Header = $Record[0];

   for ($i = 1; $i <= $#Record; $i++) { 
      ($Fieldname, $Value) = split("=",$Record[$i]);
      $Fieldname =~ s/\t//g;
      $Fieldname =~ s/ //g;
      $Value =~ s/ //g;
      $Value =~ s/\"//g;
      chomp($Value); 
      $AuthRec{$Fieldname} = $Value;
   } 
 
   $Login = scalar($AuthRec{"Timestamp"}) -  scalar($AuthRec{"Acct-Session-Time"});
   $Logout = scalar($AuthRec{"Timestamp"});


   if ($AuthRec{"Acct-Status-Type"} =~ /Stop/) {
      if (($SearchTimestamp >= $Login) && ($SearchTimestamp <= $Logout)) {
          print $AuthRec{"User-Name"} . "\t\t" . $AuthRec{"Framed-IP-Address"} . "\t\t" . $AuthRec{"NAS-Port"} . "\n";
          }
   }
}

open(FILE1,$ARGV[0]);

while () {
   $Line = $_;
   if ($Line eq "\n") {
        ProcessRec;
        @Record = ();
        end;
   } else {
        push @Record, $Line;
   }
}

close(FILE1);

[host_a]# hping2 host_b --udp -p 53 -d 100 --sign signature --safe --file /etc/passwd

[host_b]# hping2 host_a --listen signature --safe --icmp

#!/usr/bin/perl
# John Homer H Alvero
# Oct 24, 2008

use Mail::QmailQueue;
use Mail::DomainKeys::Message;
use Mail::DomainKeys::Key::Private;

$FinalString = <<EOS;
From: user\@domain.com
MIME-Version: 1.0
Subject: Hello World
To: target\@gmail.com

Test Email! This mail should have valid domain keys.
EOS


open my $fh_message, '<', \ $FinalString;

my $mail = load Mail::DomainKeys::Message(File => $fh_message) or die "unable to load message";
my $priv = load Mail::DomainKeys::Key::Private(File => "/path/to/private/key/file") or die "unable to load key";
$mail->sign(Method => "nofws", Selector => "private", Private => $priv);

$signature = $mail->signature->as_string;


my $qmail = Mail::QmailQueue->new("/var/qmail/bin/qmail-queue");
$qmail->sender('[email protected]');
$qmail->recipient('[email protected]');
$qmail->data('DomainKey-Signature: ' . $signature .';' . "\r\n" . $FinalString);
$qmail->send;

close fh_message;

yum install openldap-servers.i386

yum install openldap-clients.i386

suffix “dc=companyname,dc=com”
rootdn “cn=manager,dc=companyname,dc=com”
rootpw {SSHA}wCaiPZjCvjCbQX7xp8j/95zBnl9XQQIj

cp /etc/openldap/DB_CONFIG.example /var/lib/ldap/DB_CONFIG

service ldap restart