光光客栈

#!/usr/bin/perl


use warnings;
use strict;
use DBI;
use DBD::ODBC;


$username = "";

$pwd = "";
my $dbh = DBI->connect("DBI:ODBC:Employee", $username, $pwd) or
    die("Couldn't make connection to database:$DBI::errstr");
#注意:这里的Employee是你刚才填数据源时填入的名字

my $sth = $dbh->prepare(q{Select * FROM employee}) or
    die("Cannot prepare statement:", $dbh->errstr(),"\n");
    
my $rc = $sth->execute() or
    die("Cannot execute statement:", $sth->errstr(), "\n");

my @array;

while (@array = $sth->fetchrow_array()) {
    write();
}

warn($DBI::errstr) if $DBI::err;
$dbh->disconnect();
$sth->finish();

format STDOUT =
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<@<<<<<<<<<<<<<<
$array[0],$array[1],$array[2],$array[3],$array[4], $array[5]

void encipher( unsigned long * const v, const unsigned long * const k )
{
    register unsigned long y = v[0], z = v[1], sum = 0, delta = 0x9E3779B9,
        a = k[0], b = k[1], c = k[2], d = k[3], n = 32;
    while ( n-- > 0 )
    {
        sum += delta;
        y += ( z << 4 ) + a ^ z + sum ^ ( z >> 5 ) + b;
        z += ( y << 4 ) + c ^ y + sum ^ ( y >> 5 ) + d;
    }
    v[0] = y;
    v[1] = z;
}
void decipher( unsigned long * const v, const unsigned long * const k )
{
    register unsigned long y = v[0], z = v[1], sum = 0xC6EF3720, delta = 0x9E3779B9,
        a = k[0], b = k[1], c = k[2], d = k[3], n = 32;
    // sum = delta << 5, in general sum = delta * n
    while ( n-- > 0 )
    {
        z -= ( y << 4 ) + c ^ y + sum ^ ( y >> 5 ) + d;
        y -= ( z << 4 ) + a ^ z + sum ^ ( z >> 5 ) + b;
        sum -= delta;
    }
    v[0] = y;
    v[1] = z;
}

//默认密钥向量
  private static byte[] Keys = { 0x12, 0x34, 0x56, 0x78, 0x90, 0xAB, 0xCD, 0xEF };
  /// <summary>
  /// DES加密字符串
  /// </summary>
  /// <param name="encryptString">待加密的字符串</param>
  /// <param name="encryptKey">加密密钥,要求为8位</param>
  /// <returns>加密成功返回加密后的字符串，失败返回源串</returns>
  public static string EncryptDES(string encryptString, string encryptKey)
  {
   try
   {
    byte[] rgbKey = Encoding.UTF8.GetBytes(encryptKey.Substring(0, 8));
    byte[] rgbIV = Keys;
    byte[] inputByteArray = Encoding.UTF8.GetBytes(encryptString);
    DESCryptoServiceProvider dCSP = new DESCryptoServiceProvider();
    MemoryStream mStream = new MemoryStream();
    CryptoStream cStream = new CryptoStream(mStream, dCSP.CreateEncryptor(rgbKey, rgbIV), CryptoStreamMode.Write);
    cStream.Write(inputByteArray, 0, inputByteArray.Length);
    cStream.FlushFinalBlock();
    return Convert.ToBase64String(mStream.ToArray());
   }
   catch
   {
    return encryptString;
  
   }
  }
  /// <summary>
  /// DES解密字符串
  /// </summary>
  /// <param name="decryptString">待解密的字符串</param>
  /// <param name="decryptKey">解密密钥,要求为8位,和加密密钥相同</param>
  /// <returns>解密成功返回解密后的字符串，失败返源串</returns>
  public static string DecryptDES(string decryptString, string decryptKey)
  {

   try
   {
    byte[] rgbKey = Encoding.UTF8.GetBytes(decryptKey);
    byte[] rgbIV = Keys;
    byte[] inputByteArray = Convert.FromBase64String(decryptString);
    DESCryptoServiceProvider DCSP = new DESCryptoServiceProvider();
    MemoryStream mStream = new MemoryStream();
    CryptoStream cStream = new CryptoStream(mStream, DCSP.CreateDecryptor(rgbKey, rgbIV), CryptoStreamMode.Write);
    cStream.Write(inputByteArray, 0, inputByteArray.Length);
    cStream.FlushFinalBlock();
    return Encoding.UTF8.GetString(mStream.ToArray());
   }
   catch(Exception exp)
   {
    return decryptString;
    MessageBox.Show(exp.Message);

   }
  }