Select Code to Download

#!/usr/bin/perl -0777  --

...
}

sub S { @s[ $x, $y ] = @s[ $y, $x ] }

/*  gcc -o rc4 rc4.c -Wall */
#include <stdio.h> 
...

  return 0;
}