windytan

Keybase proof

I hereby claim:

• I am windytan on github.
• I am oona (https://keybase.io/oona) on keybase.
• I have a public key whose fingerprint is 5E58 B00C B427 8814 EE00 05ED 57BE DFA9 3BBB EDE8

To claim this, I am signing this object:

windytan

#include <openssl/sha.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

int main() {
  const char target[SHA_DIGEST_LENGTH] = {
    0x69, 0xaf, 0x88, 0x1e, 0xca, 0x98, 0xb7, 0x04, 0x2f, 0x18,
    0xe9, 0x75, 0xe0, 0x0f, 0x9d, 0x49, 0xd5, 0xd5, 0xee, 0x64
  };

windytan

@namespace url(http://www.w3.org/1999/xhtml);

@-moz-document
 domain('cpan.org')
{
   html, body, tbody, tr, td, div { background-color: #232323 !important; color: #ccc !important }
   pre {
      display: block !important ; 
      background-color: #333333 !important ;
      border: #777777 solid 0.1em !important ;

windytan

use warnings;

$fs = 48000;
$pi = 3.141592653589793;

open U, "|sox -t .raw -e sig -b 16 -c 1 -r $fs - numbers.wav sinc 300-4300";

dtmf ("12345567899000100100");

close U;

windytan

#!/usr/bin/perl
# Oona Räisänen 2014
use warnings;

$fs = 48000;
$f  = 200;
$pi = 3.141592653589793238;

open(U,"|sox -t .raw -c 1 -r $fs -b 16 -e signed - sines.wav");

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;

my $snum    = 0;
my $reading = 0;

open my $in, '-|', 'sox stamped.wav -e unsigned-integer -t .raw -';

while (read $in, $sample, 2) {
  $bit = (unpack "S", $sample) & 1;

windytan

use warnings;
use DateTime;

$snum    = 0;
$writing = 0;

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

while (not eof STDIN) {

windytan

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

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

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

windytan

$fs = 48000; # sample rate
$fc = 3729;  # carrier frequency
$filter = " sinc -$fc"; # optional LP filter

$fc = freq($fc);

open(IN, "sox scrambled.wav -c 1 -b 16 -e signed -t .raw -|");
open(OUT,"|sox -r $fs -c 1 -b 16 -e signed -t .raw - descrambled.wav".
         $filter);