tkbctf1 writeup #2

CTF

fairy (Challenge 9) 割と解いた人が少なかった問題でした。 We need to access a thin client to get trade secret of rival company. However the client needs to be unlocked at boot sequence. Can you unlock? This file may help you. 中身はtcpdump…

tkbctf1 writeup

CTF

tkbctf1にikachanとして参加してきました。こういったCTFに参加するのは初めてでしたが、とても楽しめました。 運営の皆様大変お疲れ様でした。 Good Old Days (Challenge 7) 個人的にツボでした。問題文はこちら。 [ADVANCED] I need the "Message" to cont…

LWP::UserAgent@6.05でX-Meta-Twitter:cardがヘッダに含まれているページがうまく取得できない

詳しくはlwp-download fails with HTTP::Message 6.06 · Issue #3 · libwww-perl/http-message · GitHubに書かれていますが、要約すると X-Meta-Twitter:cardのような:がヘッダに含まれているとIllegalであると判断されるようになってしまった use strict; u…

akictfのはなし

最近CTFというものを知って、結構面白いなーと思いながらksnctfをちょこちょこやっています。 先日、とある方に「セキュリティについてもっとよく知りたい、これから先ステップアップするにはどうすればいいか」と聞いたところ、問題を作るのがいいよと言わ…

Perlを半殺しにするGolf

メモリを食わせまくってPerlを半殺しにしたいと思ったので少し考えてみました。 条件 whileを使わない gotoを使わない あからさまな無限ループをさせないというのが条件です。 で、ひとつ考えたのがこんな感じです(29 bytes)。数秒で数GB級のメモリ空間を圧…

Shipped App::Tacochan 0.06!

Amon2::Liteで書き直しました。ついでに見た目も変えました。tacochanっぽい感じかなと思います。 基本的な使い方を書いたのでtacochanを使ったことがない人にもぜひ。

AnyEvent::SKKServを書いた

ついカッとなって。(AquaSKKの新しいバージョンが出たので)akiym/AnyEvent-SKKServ · GitHubもともとgoogle-ime-skkというものがあって、これはGoogle CGI APIを利用してSKKにGoogle日本語入力のエッセンスを加えるskkserv(辞書サーバ)。地味に便利で手放せ…

Perlの食えない事情 - 演算子編

Perlの食えない事情 より おっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。 ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。 なぜこの演算子を使う必要があるのかとい…

Shipped App::Tacochan 0.05!

[D] MacのSpotlightを使ってスカイプのチャットルームをサクサク切り替えられる方法 - Drift Diary XV の記事を見てこんなことができたのかと知り、tacochanもSkype URIをコピーするだけでメッセージ送信ができるようにしたかったのでサクっと書きました。 …

Minecraftのサーバを監視してjoinしているか調べるハック

いちいちMinecraftを立ち上げて調べるのは面倒なので、Skypeで通知してくれるスクリプトをてきとーに書きました。結構ゴリ押ししてる感があります :) Skypeの通知にはtacochanを使う 1分毎に監視 サーバが落ちてたら通知 joinしているプレイヤーの数を通知 u…

sshfsでマウントしたファイルがFinderで表示されない

Mac

sshfsでマウントしたけれどFinderで表示されなかったり、アプリケーションから開けないようなファイルがたまーにある。 日本語でファイル名を指定していて、さらに濁点、半濁点が含まれているとこのような現象が起こるみたい。 対処法 ファイル名をUTF-8-MAC…

Hokkaido.pm#8に来ています

ゲストとしてtypesterさんが来てくれているので、XSの話をリクエストしたところ実際にライブコーディングまで見せていただけたので非常に興奮しております。 ## XSにまつわる話 - 2010年から書き始めた - XS食わず嫌い期 - 2004-2010年くらいまで - 手を出す…

VirtualBoxでBluetoothを使う

Mac

環境: Mac OS X 10.8.2 Mountain LionDevices > USB Devices > Apple Inc. USB Bluetooth Host Controller から使えるようになっているように見えるが、エラーが発生してしまうのでBluetoothが有効にできない。 Mac側でBluetoothを無効にしてからじゃないと…

Webサービスのつくり方 - いかにして高校生が効率よく大量のおっぱい画像をダウンロードしたか

ゆーすけべーさんから献本していただきました。ありがとうございました。yusukebe++Webサービスのつくり方 ~「新しい」を生み出すための33のエッセイ (Software Design plus)作者: 和田裕介出版社/メーカー: 技術評論社発売日: 2012/11/20メディア: 単行本(…

正規表現のキャプチャ

正規表現のキャプチャの結果を取得したいときには、次のようなコードを書く: if (my @capture = '10/17' =~ m!([0-9]{2})/([0-9]{2})!) { # @capture = (10, 17) } $1や$2を使っても取得はできるが、キャプチャが増えたときに$1, $2, $3, $4, ...と増やして…

tacochanをCPANに上げた

App::Tacochan - Skype message delivery by HTTP - metacpan.org tacochanがCPANからインストールできるといいのに、という話を聞いたのでCPANに上げることにした。cpanm App::Tacochanでインストールできるようになっているはず。 そのままCPANに上げるの…

YAPC::Asia 2012で「Skype効率化」というトークをした話

Skype効率化 // Speaker Deck Skype::Anyというモジュールを書いたので、そのモジュールを使ってbotを書く例を紹介しました。実際にSkype::AnyはCPANにアップされているので、使うことができます。まだまだやりたいことがあるので、開発を続けたいと思ってま…

Cocoa::GuiTestというものを少しだけ書いた

akiym/Cocoa-GuiTest · GitHub use 5.016; use warnings FATAL => 'all'; use utf8; use Cocoa::GuiTest; use Time::HiRes qw/sleep/; my ($width, $height) = Cocoa::GuiTest::GetScreenRes(); my $hz = 10; my $omega = 2.0 * 3.14 * $hz; for my $x (0 ..…

メモリリークを見つける方法

use 5.016; use warnings FATAL => 'all'; use utf8; use AnyEvent; my $pid = shift or die "Usage: $0 pid\n"; my $cv = AE::cv; my $t; $t = AE::timer 0, 0.1, sub { warn `ps -o rss= -p $pid`; }; $cv->recv;

これぞ次世代の暗号?!絵文字だけですべてが表現できる「Emoji64」とは?

誰でも親しみやすく、そしてかわいらしい暗号…そんな暗号が今まであったでしょうか。それがEmoji64です。 Emoji64はUnicode 6.0で追加されたemojiを利用して秘密の暗号を作ることができます。必要なのは暗号のタネだけ。それさえ覚えていれば二人だけの秘密…

'あ' =~ /\w/ はマッチする

see perldoc perlrecharclass ちなみに/a修飾子をつけると[a-zA-Z0-9_]の範囲にしかマッチしなくなる。(perl-5.14.0以降で使える) 'あ' =~ /\w/a; # doesn't match.

YAPC::Asia 2012で「Skype効率化」というタイトルでトークしてきます

Skype効率化 無事に採択されました。ありがとうございます。しかし、kazuhoさんとTAKESAKOさんの裏番組でした ;( 気合入れて頑張ります! 基本的にはSkype botを作る上でのtips集の紹介です。このトークを聞けばSkype botが書けるようになるはずです。 Skype…

Acme::Collector64をCPANにアップした

Acme::Collector64 - Yet Another Base64? - metacpan.org

Mojo::DOMとWeb::ScraperとWeb::Query

Mojo::DOMとWeb::Scraper - Charsbar::Note より 最近、Web::Scraperの代わりにWeb::Queryを使うことが多いのでWeb::Queryも追加してみたけど、速度の面ではWeb::Scraperと何ら変わりないのであまり意味がなかった。。 use strict; use warnings; use 5.010;…

SFTPサーバーを立ち上げる

/etc/ssh/sshd_configに以下の内容を追加する Subsystem sftp internal-sftp Match Group sftp-only PasswordAuthentication yes ChrootDirectory %h ForceCommand internal-sftp AllowTcpForwarding noあとはユーザーをsftp-onlyグループに所属させればおー…

Plack::Middleware::Warn::txt書いた

akiym/Plack-Middleware-Warn-txt · GitHub use strict; use warnings; use Plack::Builder; my $app = sub { my $env = shift; return [200, ['Content-Type' => 'text/plain'], ['hello']]; }; builder { enable 'Plack::Middleware::Warn::txt', author =…

hateblo hacks

自分のはてブロにwarn.txtを置いてみた。 通常、ファイルを置くことはできないようになっているが、あるハックをすると任意のファイルを置くことができるようになるので、それを利用した。http://akiym.hateblo.com/warn.txt

perl-5.16.0 is now available!

% perlbrew install perl-5.16.0 今朝、ついにperl-5.16.0がリリースされました。 詳しい変更点についてはperldeltaを見ればバッチリですが、Hokkaido.pm Casual#0で発表したスライドがあるので、そちらを参照するといいかもです。 http://akiym.com/slides/…

Skype::Any for Linux

0. Skype::Anyを入れる akiym/Skype-Any · GitHub からどうぞ 1. Net::DBus::Skype::APIを入れる akiym/Net-DBus-Skype-API · GitHub からどうぞ 2. AnyEvent::DBusを入れる % cpanm AnyEvent::DBus これで動くかもしれません。

Skype::Any現状

Macでは使えませんが、Linuxでは使えます(手元で動きました)。 MacのSkypeはバージョンアップして、レスポンスが非同期で返ってくるようになったので(仕様らしいです。うえー)、Mac環境では思ったように動きません。メッセージを送信だけするといったことは…