Skip to content

Instantly share code, notes, and snippets.

@abeaumont
Created October 29, 2011 20:04
Show Gist options
  • Select an option

  • Save abeaumont/1325006 to your computer and use it in GitHub Desktop.

Select an option

Save abeaumont/1325006 to your computer and use it in GitHub Desktop.
USING: kernel io.files io.encodings.binary crypto.xor ;
IN: crypt
: crypt ( path key -- str )
[ binary file-contents ] dip xor-crypt ;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment