Skip to content

Instantly share code, notes, and snippets.

View gist:9185050
# CODEGATE 2014 web500 writeup (泣いている)
use 5.016;
use warnings;
use utf8;
use LWP::UserAgent;
# 150ワードあたりの文字出現数
# a: 303
# b: 115
# c: 153
@akiym
akiym / amida.py
Last active Aug 29, 2015
あみだくじ (akiym, xrekkusu)
View amida.py
# -*- coding: utf-8 -*-
import os
import sys
import time
import re
from pwn import *
s = process('amida')
# thanks~~ http://arc006.contest.atcoder.jp/submissions/140243
View gist:e0703949aa0615cbc1e6
dump.bin: file format binary
Disassembly of section .data:
00000000 <.data>:
_start:
0: 40 1e 00 00 movhi 0, r0, sp
4: 23 1e 80 17 movea 6016, sp, sp
@akiym
akiym / explicit.py
Last active Aug 29, 2015
No cON Name CTF Quals 2014 - eXPLicit
View explicit.py
# -*- coding: utf-8 -*-
import os
import sys
import time
import re
from pwn import *
from libformatstr import *
REMOTE = 0
@akiym
akiym / exploit2.py
Created Jul 6, 2015
魔改造ropasaurusrex writeup #katagaitaiCTF
View exploit2.py
# -*- coding: utf-8 -*-
import os
import sys
import time
import re
import struct
import socket
p = lambda x: struct.pack("<I", x)
u = lambda x: struct.unpack("<I", x)[0]
View gist:525295
#!/usr/bin/env perl
use Mojolicious::Lite;
use Mojo::Asset::File;
use Digest::MD5 qw(md5_hex);
use File::Spec;
use IO::File;
my $dir = app->home->rel_dir('images');
View gist:794857
use strict;
use warnings;
use Furl;
use LWP::UserAgent;
my $url = 'http://blog.livedoor.jp/dqnplus/';
{
my $furl = Furl->new;
my $res = $furl->get($url);
@akiym
akiym / _cpanm
Created Mar 31, 2011
zsh autcompletion for plackup / cpanm / dzil
View _cpanm
#compdef cpanm
#autoload
typeset -A opt_args
local context state line
_arguments -C \
'(-h)'{-h,--help}'[prints help]' \
'(-v --verobse)'{-v,--verbose}'[turn on chatty output.]' \
'(-q --quiet)'{-q,--quiet}'[turn off the most output.]' \
@akiym
akiym / markdown.pl
Created Apr 2, 2011
preview in real-time.
View markdown.pl
use Mojolicious::Lite;
use Text::Markdown qw/markdown/;
get '/' => sub {
my $self = shift;
$self->render('index');
};
post '/markdown' => sub {
my $self = shift;
@akiym
akiym / realtime.pl
Created Apr 2, 2011
preview in real-time 2.
View realtime.pl
use Mojolicious::Lite;
use feature qw/switch/;
use utf8;
use Text::Markdown qw/markdown/;
use Text::Xatena;
use Pod::Simple::XHTML;
get '/' => 'index';
my $xatena = Text::Xatena->new();