Help for this page

Select Code to Download


  1. or download this
    SET @@session.block_encryption_mode = 'aes-128-cbc';
SELECT ID, HEX(AES_ENCRYPT(Password,'$key',RANDOM_BYTES(16))) FROM Use
+r WHERE 1;
## OR 
SET SESSION block_encryption_mode = 'aes-128-cbc';
SELECT ID, HEX(AES_ENCRYPT(Password,'$key',RANDOM_BYTES(16))) FROM Use
+r WHERE 1;
  2. or download this
    use strict; use CGI ':standard';
use DBI; use DBD::mysql;
...

sub DBEnd {$sth->finish; $dbh->disconnect;
} ##DBEnd#
  3. or download this
    sub DBConnect { my $er;
my $DBCall={
...
$dbh=DBI->connect($dsn, $Set{DBUser}, $Set{DBPass}, { Callbacks => $DB
+Call }) || ($er=1);
 if ($er){ myErr('DB Start Error'); }
} ##DBConnect##