windytan

#!/usr/bin/perl
# windytan's pea whistle encoder
# http://www.windytan.com/2015/10/pea-whistle-steganography.html
# (c) 2015 Oona Räisänen
# ISC license

use warnings;
use strict;

my $data          = $ARGV[0] // "OHAI!";

windytan

#!/bin/sh

# Decode the helicopter position signal from youtube videos!
# It makes a KML file. You can open it in Google Earth or many other GIS programs.
# Requires sox, perl, and minimodem, and optionally yt-dlp / ffmpeg

# https://www.windytan.com/2014/02/mystery-signal-from-helicopter.html

# Remove this line
echo "Don't just run any random script you find online! Read what it does first!" && exit 1

windytan

use warnings;
use Getopt::Std;

getopt('xytGgwsf',\%opts);

# pcm file = $opts{f}

# samples per pixel x
$xscale = $opts{x} // 1200;

windytan

# Oona Räisänen 2013
# http://windytan.com

# ssh-keygen -l -f ~/.ssh/id_rsa.pub | perl emoji.pl

@emoji = qw( 🌀  🌂  🌅  🌈  🌙  🌞  🌟  🌠  🌰  🌱  🌲  🌳  🌴  🌵  🌷  🌸 
             🌹  🌺  🌻  🌼  🌽  🌾  🌿  🍀  🍁  🍂  🍃  🍄  🍅  🍆  🍇  🍈 
             🍉  🍊  🍋  🍌  🍍  🍎  🍏  🍐  🍑  🍒  🍓  🍔  🍕  🍖  🍗  🍘 
             🍜  🍝  🍞  🍟  🍠  🍡  🍢  🍣  🍤  🍥  🍦  🍧  🍨  🍩  🍪  🍫 
             🍬  🍭  🍮  🍯  🍰  🍱  🍲  🍳  🍴  🍵  🍶  🍷  🍸  🍹  🍺  🍻 

windytan

use warnings;
use DateTime;

$snum    = 0;
$writing = 0;

open OUT, "|sox -t .raw -e signed-integer -b 16 -r 44100 ".
          "-c 1 - stamped.wav";

while (not eof STDIN) {

windytan

$|++;
use warnings;
use Text::LevenshteinXS qw(distance);

for (qx!cat nappis.txt!) {
  $merkki{$2} = $1 if (/^(.+) ([01]+)/);
}

while (<>) {
  chomp();

windytan

#include <stdlib.h>
#include <math.h>
#include <string.h>
#include <fftw3.h>

#define FFTLEN 2048
#define SRATE  22050

// Return sinusoid power from complex DFT coefficients
double power (fftw_complex coeff) {

windytan

use warnings;

my $width = 1000;
my $height = 500;

my $n_pts = 1000;
my $wavelength = 9;

print '<svg xmlns="http://www.w3.org/2000/svg" version="1.1" '.
      'width="'.$width.'" height="'.$height.'">'."\n";

windytan

#!/usr/bin/perl
#
# Markov-tavutin
#
# (c) Oona Räisänen
# MIT license
#

use strict;
use warnings;

windytan

#!/usr/bin/perl
# windytan 2017, public domain
use warnings;
use strict;

my $img_width      = 1200;
my $img_height     = 900;
my $yscale         = 0.6;
my $xscale         = 0.13;
my $rowheight      = 5;