free imvu vip: 2011

duminică, 30 ianuarie 2011

Romania V.I.P.

BUNA, eu sunt unul din multii moderatori imvu

Dupa ani de crecetare am descoperit cum sa fac imvu gratis.

Eu ma ocup cu vip-ul din Romania.

Dupa ce Imved a fost folosit de mii de persoane, akum este randul acestui blog care iti poate indeplini dorinta!

1. Nu este o gluma

2. Cu totii stim ca atunci cand devii vip primesti 5000 promo credits si 1000 credits, dumneavoastra nu o sa primiti acesti bani deoarece, eu depun acesti bani in contul IMVU.

3. Sunteti in siguranta.

4. Discretie 100%.

Trimite asta la id-ul molly_6285@yahoo.ca

#!/usr/bin/perl use DBI; sub insert_user { my ($nim, $nama, $password) = @_; my ($insert_sql,$sth); $database = "practice_perl"; $dbuser = "hendra"; $dbpasswd = "hendra"; $dbhost = "localhost"; $dsn = "DBI:mysql:database=$database;host=$dbhost"; $dbh = DBI->connect($dsn,$dbuser,$dbpasswd) || die $DBI::errstr; $insert_sql = qq {insert into user (nik,name,password) values ('$nik', '$name', '$password')}; $sth = $dbh->prepare($insert_sql) || die "prepare: $insert_sql: $DBI::errstr"; $sth->execute || die "Unable to execute query: $dbh->errstr\n"; $sth->finish; $dbh->disconnect; }#end insert_user sub insert_log { my ($input) = @_; my ($insert_sql_log); $database = "practice_perl"; $dbuser = "hendra"; $dbpasswd = "hendra"; $dbhost = "localhost"; $dsn = "DBI:mysql:database=$database;host=$dbhost"; $dbh = DBI->connect($dsn,$dbuser,$dbpasswd) || die $DBI::errstr; $insert_sql_log = "insert into log values ('',".$dbh->quote($input).")"; $dbh->do($insert_sql_log) || die ($dbh->errstr); return $dbh->{'mysql_insertid'}; $dbh->disconnect; }#end insert_log print "INPUT : "; while ($input = <>) { #format insert : nik,name,password if($input =~/^(\d{8}),(.*),(\w{6})$/i){ insert_user($1,$2,$3); }else{ insert_log($input); print "Wrong Format"; }#end if print "\nINPUT : "; }#end while