AiV3 on Blogger: agosto 2008

domenica 31 agosto 2008

[Js] FullScreen

Descrizione
Consente di aprire una pagina web in modalità FullScreen.

Codice
<head>
<head>
<title>FullScreen</title>
<script language="JavaScript">
function fullscreen()
{
document.write('<form><input type="button" value="Fullscreen!" onclick="window.open(\'fullscreen.html\',\'\',\'fullscreen,scrollbars=yes\');return(false)">');
}
</script>
</head>
<body>
<script language="JavaScript">fullscreen()</script>
<body>
</html>

sabato 30 agosto 2008

[Js] GooGle Search

Descrizione
Permette di eseguire una semplice ricerca su GooGle.

Codice
<html>
<head>
<title>GooGle Search</title>
<script language=JavaScript>
function googSearch() {
if (document.googsearch.search.value!="") {
window.open("http://www.google.com/search?hl=en&q=" + document.googsearch.search.value) ; } else {
alert("Inserire del testo da cercare!")
document.googsearch.search.focus();}}
</script>
</head>
<body>
<div align=center>
<form name="googsearch">
<b>GooGle Search</b><br><br>
<input name=search type=text size=20>
<input type="button" value="Search" onclick="return googSearch();">
</form>
</div>
</body>
</html>

venerdì 29 agosto 2008

[Js] Simple Login

Descrizione
Semplice login...

Codice
<html>
<head>
<script language="JavaScript">
function Login(form) {
var user = form.user.value;
var passw = form.passw.value;
if (user=="user" && passw=="pass") {
var htsite = "liv2.html";
window.location = htsite;}
else if (user!="user" && passw=="pass") {
alert("Username errato!");
}
else if (user=="user" && passw!="pass") {
alert("Password errata!");
}
else
{
alert("Non hai inserito dei dati validi!");
}
}
</script>
</head>
<body bgcolor="#000000">
<form name=login>
<p align="center"><font color="#00FF00">Username:</font>
<input type=text name=user size=20>
<br>
<br>
<font color="#00FF00">Password:</font>
<input type=password name=passw size=20>
</p>
<p align="center">
<input type=button value="login" onClick="Login(this.form)" name="button">
</p>
</form>
</body>
</html>

giovedì 28 agosto 2008

[Js] Simple Password Protection

Descrizione
Mostra come attuare una semplice protezione tramite password dei contenuti presenti su di una pagina web.

Codice
<html>
<head>
<title>Password</title>
</head>
<SCRIPT LANGUAGE="JavaScript">
function pass(){
var passwd=prompt("Password:","")
if (passwd=="aiv3")
{
document.write ('Password esatta!');
}
else{
document.write ('Password errata!');
}
}
</SCRIPT>
<BODY onLoad="pass()">
</body>
</html>

mercoledì 27 agosto 2008

[Js] Data

Descrizione
Mostra, in una pagina web, la data corrente.

Codice
<html>
<head>
<title>Data</title>
</head>
<body>
Data di oggi:
<script>
gg="";
mm="";
data = new Date();
day = data.getDay();
if (day == 0) gg='Domenica';
if (day == 1) gg='Lunedì';
if (day == 2) gg='Martedì';
if (day == 3) gg='Mercoledì';
if (day == 4) gg='Giovedì';
if (day == 5) gg='Venerdì';
if (day == 6) gg='Sabato';
mese = data.getMonth();
if (mese == 0) mm='Gennaio';
if (mese == 1) mm='Febbraio';
if (mese == 2) mm='Marzo';
if (mese == 3) mm='Aprile';
if (mese == 4) mm='Maggio';
if (mese == 5) mm='Giugno';
if (mese == 6) mm='Luglio';
if (mese == 7) mm='Agosto';
if (mese == 8) mm='Settembre';
if (mese == 9) mm='Ottobre';
if (mese == 10) mm='Novembre';
if (mese == 11) mm='Dicembre';
gdm = data.getDate();
anno = data.getYear();
document.write (gg,', ', gdm, ' ',mm, ' ', anno+1900);
</script>
</body>
</html>

martedì 26 agosto 2008

[C++] PassGenerator

Descrizione
Genera una password con un numero di caratteri a scelta dell'utente.

Codice
#include <iostream>
using namespace std;
int main() {
int num;
cout << "Numero caratteri della password: ";
cin >> num;
char kar[36] = { '0','1','2','3','4','5', '6','7','8','9','a','b','c','d','e','f','g', 'h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'};
for (int a=0; a<num; a++){
if (a==0){
cout << "Password: " << kar[rand() % 36];
}else{
if (a==num-1)
{
cout << kar[rand() % 36] << "\n";
}
else
{
cout << kar[rand() % 36];
}
}
}
system ("pause");
}

lunedì 25 agosto 2008

[Php] Controllare lo spazio libero su di un disco locale

Descrizione
Controlla lo spazio libero su di un disco locale.

Codice
<?php
$hd = disk_free_space("C:");
echo "Spazio libero sul disco locale \"C:\": $hd byte";
?>

domenica 24 agosto 2008

[Php] Add-a-site-in-GooGle

Descrizione
Consente di addare un sito in GooGle senza dover recarsi su http://www.google.com/addurl/.

Codice
<?
$url = $_POST['url'];
$descr = $_POST['descr'];
if ($url!=''){
echo "<html><head></head><body><center><h1>Il tuo sito è stato aggiuto al database di Google!</h1><br><b>Url:</b> $url<br><b>Descrizione:</b> $descr<br><br><iframe src=\"http://google.com/addurl?q=$url&dq=$descr&submit=\" width=\"800\" height=\"600\"></iframe></center></body></html>";
}
else{
echo "<html>
<head>
<title>Add a site in GooGle</title>
</head>
<body>
<center>
<h1>
Add Sites In GooGle
</h1>
<center>
<form name=\"form1\" action=\"add.php\" method=\"Post\">
<b>
Url:
</b>
<input id=\"1\" type=\"text\" name=\"url\" Size=\"50\" Style=\"Color: #000000\">
<br>
<br>
<b>
Descrizione:
</b>
<br>
<textarea id=\"2\" type=\"text\" name=\"descr\" width=\"200px\" height=\"200px\" style=\"color: #000000\"></textarea>
<br>
<br>
<input type=\"submit\" name=\"invia\" value=\"Invia\">
<br>
<br>
</form>
</center>
</body>
</html>";
}
?>

sabato 23 agosto 2008

[Perl] YouTube-Video-Downloader

Descrizione
Dato un url di un video di YouTube, scarica detto video sul proprio pc.

Codice
use LWP;
use Term::ReadKey;
use Term::ANSIColor;
use Win32::Console::ANSI;
&video;
sub video{
print color 'bold red';
print "[!]Inserisci l'url del video da scaricare da YouTube: ";
print color 'reset';
chomp($url=<>);
if($url=~m/(http:\/\/.*?youtube\.com)\/.*?v=(.+)/){
$you= $1;
$code=$2;}
else{
print color "bold red";
print "[!]Non hai immesso un valido indirizzo...\n[!]Riprovare? (y/n)\n";
print color "reset";
chomp($a=<>);
while(1==1){
if($a eq 'y'){
&video; }
elsif($a eq 'n'){
print color "bold red";
print "[!]Alla prossima!\n[!]Premi un tasto per uscire...\n";
print color "reset";
while(not defined ($key = ReadKey(-1))){ }
exit;}else{
print color "bold red";
print "[!]Non hai immesso una valida risposta!\n[!]Riprovare? (y/n)\n";
print color "reset";
chomp($a = <>);}}}
$lwp = LWP::UserAgent->new;
$get = $lwp->get("$you/v/$code")->request->uri;
$get =~ s/.*&t=(.+)/$1/;
open(F,">$code.flv");
binmode(F);
$t1=$t2=time;
print color "bold blue";
print "\n[*]Scaricamento in corso...\n";
print color "reset";
$req = $lwp->request(HTTP::Request->new(
GET => "$you/get_video?video_id=$code&t=$get"),
sub {
($part,$req) = @_;
$part2 = $part2 + length($part);
$time2 = time;
if($time2 > $time1){
if ($req->content_length) {
$leng = $req->content_length;
$ctr = 100*$part2/$leng;
print color "bold green";
printf STDERR "\r[*]%d%%",$ctr;
print color "reset";
$time1= $time2;}}
print F $part;});
close(F);
print color "bold green";
print "\r[!] 100% - File scaricato con successo!\n";
print color "reset";
print color "bold red";
print "[!]Vuoi scaricare un nuovo video? (y/n)\n";
print color "reset";
chomp($a=<>);
while(1==1){
if($a eq 'y'){
&video;}
elsif($a eq 'n'){
print color "bold red";
print "[!]Alla prossima!\n[!]Premi un tasto per uscire...\n";
print color "reset";
while(not defined ($key = ReadKey(-1))){}
exit;}else{
print color "bold red";
print "[!]Non hai immesso una valida risposta!\n[!]Vuoi scaricare un nuovo video? (y/n)\n";
print color "reset";
chomp($a = <>);}}}

venerdì 22 agosto 2008

[Python] ZipArchives

Descrizione
Mostra come interagire con archivi ZIP

Codice
import zipfile
z = zipfile.ZipFile("a.zip", "r")
for file in z.namelist( ):
print "Lista files:\n", file,
bytes = z.read(file)
print ' - ', len(bytes), 'bytes'

giovedì 21 agosto 2008

[Python] GUI-Toolbar

Descrizione
Banale esempio di GUI con toolbar in Python.

Codice
from Tkinter import *
mw = Tk()
def hello():
print "Hello!";
tb = Frame(mw)
b = Button(tb, text="Hello", width=6, command=hello)
b.pack(side=LEFT, padx=2, pady=2)
b = Button(tb, text="Esci", width=6, command=mw.quit)
b.pack(side=LEFT, padx=2, pady=2)
tb.pack(side=TOP, fill=X)
mainloop()

mercoledì 20 agosto 2008

[Python] GUI-Menù

Descrizione
Banale esempio di GUI con menù in Python.

Codice
from Tkinter import *
def hello():
print "HelloWorld\n"

def about():
print "Codec by V3rgil\n";

mw = Tk()
mn = Menu(mw)
mw.config(menu=mn)
filemn = Menu(mn)
mn.add_cascade(label="File", menu=filemn)
filemn.add_command(label="Hello...", command=hello)
filemn.add_separator()
filemn.add_command(label="Esci", command=mw.quit)
helpmn = Menu(mn)
mn.add_cascade(label="Help", menu=helpmn)
helpmn.add_command(label="About...", command=about)
mainloop()

martedì 19 agosto 2008

[Python] GUI-HelloWorld

Descrzione
Semplice esempio di GUI.

Codice
from Tkinter import *
mw = Tk()
label = Label(mw, text="Hello, world!")
label.pack()
mw.mainloop()

lunedì 18 agosto 2008

[Perl] BidVertiserChecker

Descrizione
Controlla le entrate su BidVertiser.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
use Win32::Console::ANSI;
print "\e[1;37;44mBidVertiser\n\e[0m";
$mech->get('http://www.bidvertiser.com/');
$mech->submit_form(
form_name => 'LoginFormAdv',
fields => {
bdv_type => 'pbl',
Member_ID => 'username',
Password => 'password',
},
);
$a = $mech->content;
if($a =~ /<td width=\"160\" class=\"Top-Bar-Bttn-TD\" align=\"center\" onclick=\"document.location.href=\'(.*?)\';\" style=\"cursor:pointer;\"><span class=\"Top-Bar-Bttn\" >BidVertiser Summary<\/span><\/td>/){
$mech->get($1);
}
$a = $mech->content;
if($a=~/<b>Total<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b>/){
print "Impressions: $1\nClicks: $2\nRevenue: $3\nCPC: $4\n\n";
}
system("PAUSE");

domenica 17 agosto 2008

[Perl] GUI-HelloWorld

Descrizione
Semplice esempio di GUI.

Codice
use Tk;
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Esci",
-command => sub { exit })
-> pack();
MainLoop;

sabato 16 agosto 2008

[Perl] WhoIs

Descrizione
Semplice esempio di WhoIs in Perl.

Codice
use Net::Whois::Raw;
$s = whois('google.com');
print $s;
system("PAUSE");

venerdì 15 agosto 2008

[Perl] ShowTextFiles

Descrizione
Mostra i nomi dei file di testo presenti in una directory.

Codice
$d = ".";
print "File di testo trovati:\n";
opendir(D, $d) or die "Impossibile aprire la directory: $!";
while( defined ($f=readdir(D)) ) {
print "$d/$f\n" if -T "$d/$f";
}
closedir(D);
system("PAUSE");

giovedì 14 agosto 2008

[Perl] PalindromStrings

Descrizione
Controlla se una stringa è palindroma.

Codice
$str = 'asdDsa';
$rev = join("", reverse split("", $str));
if($str =~ /$rev/i){
print "La stringa '$str' e' palindroma\n";
}
else
{
print "La stringa '$str' non e' palindroma\n";
}
system("pause");

mercoledì 13 agosto 2008

[Perl] Password

Descrizione
Non visualizza ciò che viene digitato durante l'immissione del valore della variabile $pass.

Codice
use Term::ReadKey;
ReadMode('noecho');
print "Inserire una password: ";
$pass = ReadLine(0);
chomp($pass);
print "\nLa password digitata e': $pass\n";
system("pause");

martedì 12 agosto 2008

[Perl] RomanArabic

Descrizione
Mostra il corrispondente numero romano di un numero arabo e viceversa.

Codice
use Roman;
$roman = roman(5);
print "Il corrispondente numero romano del numero arabo 5 e' $roman\n";
$arabic = arabic($roman);
print "Viceversa, il corrispondente numero arabo del numero romano $roman e' $arabic\n";
system("pause");

lunedì 11 agosto 2008

[Perl] Ping

Descrizione
Pinga un host.

Codice
use Net::Ping;
$host = "v3rgil.altervista.org";
$p = Net::Ping->new() or die "Impossibile pingare: $!\n";
print "$host is alive\n" if $p->ping($host);
$p->close;
system("pause");

domenica 10 agosto 2008

[Perl] Randomizing An Array

Descrizione
Randomizza un dato array.

Codice
my @arr = ("Napoli", "Milano", "Londra", "New York");
my $deck = \@arr;
my $i = @$deck;
while ($i--) {
my $j = int rand (4);
@$deck[$i,$j] = @$deck[$j,$i];
}
print "@arr\n";
system("pause");

sabato 9 agosto 2008

[Perl] FtpAccess

Descrizione
Banale esempio dell'uso del FTP con il Perl.

Codice
use Net::FTP;
$ftp = Net::FTP->new("tuosito.org") or die "Impossibile connettersi: $@\n";
$ftp->login('user', 'pass') or die "Impossibile loggarsi\n";
$ftp->put("file.txt");
system("pause");

venerdì 8 agosto 2008

[Perl] GetTinyURL

Descrizione
Ottiene il TinyURL di un dato indirizzo web.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( 'http://tinyurl.com/');
$var=$mech->content;
$mech->submit_form(
form_number => 2,
fields => {
url => 'http://tuosito.com',
}
);
$var=$mech->content;
if ($var=~m/<blockquote><b>.*?<\/b><br><small>\[<a href=\"(.*?)\" target=.*?>Open in new window<\/a>\]<\/small>/g){
print "\n Il TinyURL generato e': $1";
}
print "\n\n\n";
system("PAUSE");

giovedì 7 agosto 2008

[Perl] AdSenseChecker

Descrizione
Controlla le entrate su AdSense.

Leggenda
* Riga troncata.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
print "Adsense\n";
$mech->get( 'https://www.google.com/accounts/Login?continue=http://www.google.it/search%3Fhl%3Dit%26client%3Dfirefox-a%26channel%3Ds%26rls%3Dorg.mozilla:it:official%26hs%3DN7p%26pwst *
%3D1%26q%3 *
Dadsense%2Bchecker%2Bsource%26start%3D10%26sa%3DN&hl=it');
$var=$mech->content;
$mech->submit_form(
form_number => 1,
fields => {
Email => 'tuaemail',
Passwd => 'tuapass',
}
);

$var2=$mech->content;
$mech->get('https://www.google.com/accounts/ServiceLoginBox?service=adsense&ltmpl=login&ifr=true&rm=hide&fpui=3&nui=15&alwf=true&passive=true&continue=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&followup=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&hl=it');
$var5=$mech->content;
if ($var5 =~ m/<center><a target="_top" href="(.*)" style="font-family: Arial, Helvetica, sans-serif; font-size: smaller;">/g){
$mech->get("$1");
$var3=$mech->content;
}
while($var3=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "Oggi\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5";
$mech->get("https://www.google.com/adsense/report/overview?timePeriod=alltime");
$vari = $mech->content;
while($vari=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "\n\nTotale\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5\n";
}
}
system("pause");

mercoledì 6 agosto 2008

[Perl] RenFile

Descrizione
Rinomina un file (in questo caso rinomina renfile.pl in hello.pl).

Codice
$file="renfile.pl";
my $newname = "hello.pl";
rename($file, $newname) or
warn "Impossibile rinominare $file in $newname: $!\n";
system("pause");

martedì 5 agosto 2008

Descrizione
Mostra l'HTML di una pagina web (in questo caso http://www.google.com/).

Codice
<?php
$lines = file('http://www.google.com/');
foreach ($lines as $line_num => $line) {
echo "Linea #<b>{$line_num}</b> : " . htmlspecialchars($line) . "<br />\n";
}
?>

lunedì 4 agosto 2008

[Perl] Controllare l'esistenza di un file

Descrizione
Il titolo dice tutto ;): lo script che oggi vi presento rappresenta un banale esempio di come si possa controllare l'esistenza di un file (in questo caso denominato new.txt) con il Perl.

Codice
if (-e "new.txt"){
print "Il file \"new.txt\" esiste.";
}
else{
print "Il file \"new.txt\" non esiste.\n";
}
system("PAUSE");

domenica 3 agosto 2008

[HTML] Reload

Descrizione
Il codice sottostante, da me realizzato in HTML, crea un pulsante grazie al quale è possibile (cliccandovi) ricaricare la pagina web sul quale è presente.

Codice
<form method="post" action="">
<input type="button" value="AGGIORNA" onClick="location.reload()">
</form>

sabato 2 agosto 2008

[Perl] All AiV3's stats

Descrizione
Il sottostante script, da me sempre realizzato in Perl, mostra alcune delle statistiche pubbliche di AiV3, AiV3 on Altervista ed AiV3 on Blogger.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
use Win32::Console::ANSI;
system(“title All AiV3’s stats”);
print “\e[1;37;44mAiV3 on Altervista\n\e[0m”;
$mech->get( ‘http://v3rgil.altervista.org/wordpress/’);
$var=$mech->content;
if($var=~m/<ul><li><b>Visite di oggi:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali per questa pagina:<\/b>(.*?)<\/li>\s\s<li><b>Ip:<\/b>(.*?)<\/li>\s\s<li><b>Os:<\/b> <\/li>\s\s<li><b>Browser:<\/b> <\/li>\s\s<li><b>Visitatori online:<\/b>(.*?)<\/li>\s\s<li><b>Utenti online:<\/b>(.*?)<\/li>\s\s<br>\s\s<li><b>Top browser:<\/b> <br>\s\s(.*?)<\/li>\s\s<br>\s\s<li><b>Top O.S.:<\/b> <br>\s\s(.*?)<\/li>/)
{
print qq(Visite di oggi: $1
Visite totali: $2
Visite totali per questa pagina: $3
Ip: $4
Visitatori online: $5
Utenti online: $6
Top browser: $7
Top O.S.: $8);
}
print “\n\n\e[1;37;44mAiV3\n\e[0m”;
$mech->get( ‘http://aiv3.no-ip.org/wordpress/’);
$var=$mech->content;
if($var=~m/<ul><li><b>Visite di oggi:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali per questa pagina:<\/b>(.*?)<\/li>\s\s<li><b>Ip:<\/b>(.*?)<\/li>\s\s<li><b>Os:<\/b> <\/li>\s\s<li><b>Browser:<\/b> <\/li>\s\s<li><b>Visitatori online:<\/b>(.*?)<\/li>\s\s<li><b>Utenti online:<\/b>(.*?)<\/li>\s\s<br>\s\s<li><b>Top browser:<\/b> <br>\s\s(.*?)<\/li>\s\s<br>\s\s<li><b>Top O.S.:<\/b> <br>\s\s(.*?)<\/li>/)
{
print qq(Visite di oggi: $1
Visite totali: $2
Visite totali per questa pagina: $3
Ip: $4
Visitatori online: $5
Utenti online: $6
Top browser: $7
Top O.S.: $8);
}
print “\n\n\e[1;37;44mAiV3 on Blogger\n\e[0m”;
$mech->get( ‘http://s5.shinystat.com/cgi-bin/shinystatv.cgi?L=0&USER=V3rgil&NH=1&NRD=1′);
$var=$mech->content;
if($var=~m/<td class=titolobox width=25%>Visitatori online<\/td>\s.*?<td.*?>(.*?)<\/td>/){
print “Visitatori online: $1″;
}
if($var=~m/<td.*?>Totale pagine viste<\/td>\s+.*?<td.*?>(.*?)<\//){
print “\nTotale pagine visitate: $1″;
}
if($var=~m/<td.*?>Visite totali<\/td>\s+.*?<td.*?>(.*?)<\//){
print “\nVisite totali: $1″;
}
if($var=~m/<\/a>Pagine viste<\/td>\s+.*?<td.*?>(.*?)<\/td>/){
print “\nPagine viste (oggi): $1″;
}
if($var=~m/<\/a>Visite<\/td>\s+.*?<td.*?>(.*?)<\/td>/){
print “\nVisite di oggi: $1″;
}
if($var=~m/Rank.*?><\/a><\/td>\s+.*?<td.*?><b>(.*?)<\/b>/){
print “\nShinystat Rank: $1 su 50″;
}
print “\n\n\n”;
system(“pause”);

venerdì 1 agosto 2008

[Perl] Data ed ora

Descrizione
Il sottostante script, da me realizzato in Perl, visualizza l’ora e la data.

Codice
use Time::Local;
my $tim = localtime(time);
print $tim;

Categorie

Banner del blog

Altri miei progetti