Kenta Sato Tosainu

🌸

ヾ( ╹◡╹ 🌸 )ﾉ"

Arch Linux, Embedded Systems, etc.

Tosainu / .cvimrc

Last active December 18, 2018 04:06

let blacklists = ["https://inbox.google.com/*","https://tweetdeck.twitter.com/*","https://*.slack.com/*","http://0.0.0.0/*","http://[::]/*"]

Tosainu / exploit.hs

Created April 30, 2018 19:01

	{-# LANGUAGE OverloadedStrings #-}

	-- ASIS CTF Quals 2018: FCascasde

	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 ((<>))

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 ((<>))

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 / 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 / .gitignore

Last active December 24, 2018 10:42

私用の Pandoc テンプレート

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 / 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 / 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 / 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