#!/usr/bin/perl
 #========================================
 #
 # iq_encrypt.pl
 #
 # Params: sourcefile  targetfile
 #========================================
 
 $fname1=$ARGV[0];
 $fname2=$ARGV[1];
 
 open(FILE1, "<$fname1") or die "Error .. FILE1" ;
 open(FILE2, ">$fname2") or die "Error .. FILE2" ;
 
 while ()
   {
   $line1 = $_ ;
 
   @line1 = split ' ', $line1 ;
 
   $user = shift @line1 ;
   $X    = shift @line1 ;
 
   $i = 0 ;
   $z = length($X);
   $Z = '' ;
 
   while ($i < $z)
     {
     $Z = $Z . '\x' . substr($X,$i,2) ;
 
     $i ++;
     $i ++;
     }
 
   print FILE2 "grant connect,resource to $user identified by \n " . "'" . $Z . "'" . "; \n\n"  ;
   }
 
 close(FILE1);
 close(FILE2);
 

 #!/bin/bash
 #========================================
 #
 # iq_encrypt.sh
 #
 # Parms:    
 #
 #========================================
 
 iqserver=$1
 iquser=$2
 iqisql=/opt/sybaseiq/util/scripts/iq_isql.sh
 tfile1=/opt/sybaseiq/util/temp/encrypt.dat
 tfile2=/opt/sybaseiq/util/temp/encrypt.sql
 
 cd /opt/sybaseiq/util/scripts
 pwd
 
 echo "SQL Prep ..."
 
 cat iq_encrypt.sql | sed "s|IQUSER|$iquser|" > _iq_encrypt.sql
 
 echo "Examining user ..."
 
 $iqisql $iqserver _iq_encrypt.sql | grep $iquser > $tfile1
 
 echo "Perl processing ..."
 
 ./iq_encrypt.pl $tfile1 $tfile2
 
 echo "Ready.  You can now run the SQL displayed below against the target IQ server."
 echo " " ; echo " "
 
 cat $tfile2