Gallstones And Polyps

Playing with SQL injection

Good time ago had seen a post about this topic in the blog to Zerial . The point is that I always wanted to play with this but for A or B never did, but in the end I stayed up late yesterday with festival fun and nudged me something in perl to fetch data from the web. But what is Festival? Festival is a software text-to-speech (TTS) or speech synthesizer that allows us to make our machine we speak or, rather, we read some text. More information here

Blog Zerial Extract To install this package does not log in as r00t in the shell and install it with aptitude

$ su # aptitude install festival # aptitude install-festlex festlex-cmu festvox-kallpc16k postlexical festvox libestools1.2 -ellpc11k
To prove it works correctly, we log in as normal user and place. $ festival - English language

Festival Speech Synthesis System 1.96: beta July 2004

Copyright (C) University of Edinburgh, 1996-2004. All rights reserved.
For details type `(festival_warranty) '

festival> (SayText "hello how are you")


If you hear the "Hi How are you" is a horrible robotic voice but it is good that there xD. Also you can pass a text file to read it. I have a friend who used one of these programs in windows and read the whole book of Kevin Mitnick "The art of intrusion" xD. To read a file is passed to this parameter. $ festival - English language - tts file.txt

Coupling with Perl

I wrote a simple perl script which brings the prognosis of Capital Flows, and start collecting data with regular expressions I , also tells us the time and some other things. This maso why I did it at dawn and had plans to continue adding more things but it was getting very late, in order to leave them the script. This highly entertaining
can do many things like we read important news, horoscopes, traffic conditions etc. I put it when booting the system tells me how is the prognosis (and for me the same tired ja). Ah
the page where the prognosis is
out this
who-speak.pl
# / usr / bin / perl use
LWP:: Simple;
use utf8; no utf8;

$ page = "http://www.weather.com/weather/today/Corrientes+Argentina+ARCS0025"

$ ua = LWP:: UserAgent-> new (agent => 'Mozilla/5.0 (X11, U; Linux x86_64; is; rv: 1.9.1.8) Gecko/20100218 Firefox/3.0.3 (like Firefox/3.5.8) ');
$ ua-> default_header (' Accept-Language '=> "es-ar, is, q = 0.8, en-us; q = 0.5,, q = 0.3") # accept language English
$ ua-> timeout (7); # $ ua-> env_proxy;
$ response = $ ua-> get ($ page);
$ request = $ response-> content ;
# $ request = ~ m / \u0026lt;p align=center> \u0026lt;b> TODAY (.*?)\u0026lt; \\ / b> \u0026lt;\\ / p> / s;
# $ day = $ 1;
#-------------------------- Volume Date -------- Data ------------------------------------ # s #

$ request = ~ m / \u0026lt; p class = "ccWeatherTimeStamp"> Updated: \\ s *(.*?) Local Time \u0026lt;\\ / p> / s; # I take the data actulizacion
$ update = $ 1;
$ update = ~ s / \\ n / / gi, $ update = ~ s / \\ t / / gi; # clean the \\ n and \\ t
months #---------- Change to English ----- -------

$ update = ~ s / Jan / Jan / gi;
$ update = ~ s / Feb / Febreol / gi;
$ update = ~ s / Mar / Marzol / gi;

$ update = ~ s / April / April / gi;

 
 $ update = ~ s / May / May / gi; 
 
 $ update = ~ s / June / June / gi; 
 
 $ update = ~ s / July / July / gi; 
 
 $ update = ~ s / Jul / Aug / gi; 
 
 $ update = ~ s / September / September / gi; 
 
 $ update = ~ s / October / October / gi; 
 
 $ update = ~ s / Nov / Nov / gi; 
 
 $ update = ~ s / Nov / Dec / gi; 
 
 #----------------- End-Month Change -------------------- 
 
 
 
 
 #-------- take the temperature 
 
 ----------- 
 
 
 $ request = ~ m / \u0026lt;div class="ccTemp"> (\\ d +) ° F \u0026lt;\\ / div> / s; 
 
 $ temp = $ 1; 
 
 $ celsius = ($ temp - 32) * 5 / 9, # step from F to C 
 
 $ Celsius = sprintf ("% .1 f" , $ celsius); # truncoo 
 number #------------- took the state 
 
 
 --------------- $ request = ~ m / \u0026lt;div class="ccdata"> \u0026lt;p> (.*?)\u0026lt; \\ / p> \u0026lt;\\ / div> / s; 
 
 $ status = $ 1; 
 
 
 
 
 
 # - I think the archivoi ---------------------- ------------------------- ---------------------- s # 
 
 ($ sec, $ min, $ hour) = localtime (time); 
 
 
 
 open (AR ,">"." temp.txt ")  
 
 
 
 
 
 That's all .. Greetings