Simple perl script for mp3 broadcasting. Plays tracks in random order.
There is also a .bat + netcat implementation:
FOR /R %music% %%G IN (*.mp3) DO (
echo Playing: %%G
echo "HTTP/1.0 200 OK\r\nContent-Type: audio/x-mp3stream\r\n\r\n"
) | nc -l -p %port% > NUL
This is a simple SSH bruteforce script, also it can be used for batch command execution on multiple computers.
Basically this script loops through the list of IPs specified in iplist.txt, then uses all possible combinations of authorization credentials (from users.txt and passw.txt) and tries to login. If authorization is successful, the script executes a shell command specified in the $cmd variable, grabs the output and stores it in the res.txt file.
Also, the Net::SSH::Perl module must be installed. If you have troubles with installation of this module, then try to install one of the following modules first:
This is a simple example of Tk module usage for GUI creation in Perl. Here is the script to download mp3 files from Last.fm (available only if you're a paid or recently registered member).
A final version of the script will look like this:
Let's start. Continue reading "GUI в Perl (Tk)"