+ (NSData *) pkcs5_unpad:(NSData *)data
{
    int pad = [[[NSString alloc] initWithData:[data subdataWithRange:NSMakeRange(data.length - 1, 1)] encoding:NSASCIIStringEncoding] characterAtIndex:0];
    if (pad > data.length) return nil;
    return [data subdataWithRange:NSMakeRange(0, data.length - pad)];
}

• アルゴリズム：AES（鍵長は128でも256でもいいと思います）
•  ブロック形式：CBC（EBCも使えます）
• パディング：PKCS5（独自で実装できるのでお好きにどうぞ）

+(NSDictionary*) pass2keyInfo:(NSData *)pass salt:(NSData *)salt
{
    int keySize = 256;
    int ivSize  = 128;
    int keyAndIvSize = (keySize/8) + (ivSize/8);
    NSMutableData* result = [[NSMutableData alloc] init];
    NSMutableData* keyAndIv = [[NSMutableData alloc] init];
    while (keyAndIv.length < keyAndIvSize) {
        [result appendData:pass];
        [result appendData:salt];
        [result setData:[result MD5Digest]];
        [keyAndIv appendData: result];
    }
    NSData* key = [keyAndIv subdataWithRange:NSMakeRange(0, keySize/8)];
    NSData* iv  = [keyAndIv subdataWithRange:NSMakeRange(keySize/8, ivSize/8)];
    return [NSDictionary dictionaryWithObjectsAndKeys:key, @"key", iv, @"iv", nil];
}

キャッシュ無し

heavy_func1 <- function() {
  print("重い処理")
  result <- rnorm(1) # ランダムな数字
  return(result)
}

> heavy_func1()
[1] "重い処理"
[1] -2.146503
> heavy_func1()
[1] "重い処理"
[1] 0.07116749
> heavy_func1()
[1] "重い処理"
[1] -0.277692

グローバル変数を用いたキャッシュ

heavy_func2.cache <- NULL
heavy_func2 <- function() {
  now <- Sys.time()
  if(!is.null(heavy_func2.cache)) {
    if (10 > now - heavy_func2.cache$updated_at) {
      return(heavy_func2.cache$value)
    }
  }
  print("重い処理")
  result <- rnorm(1) # ランダムな数字
  heavy_func2.cache <<- list(value=result, updated_at=now)
  return(result)
}

> heavy_func2()
[1] "重い処理"
[1] -0.06969717
> heavy_func2()
[1] -0.06969717
> heavy_func2()
[1] -0.06969717

> heavy_func2()
[1] "重い処理"
[1] 0.8203284

明示的なグローバル変数宣言を削除

heavy_func3 <- function() {
  now <- Sys.time()
  if(exists("heavy_func3.cache")) {
    if (10 > now - heavy_func3.cache$updated_at) {
      return(heavy_func3.cache$value)
    }
  }
  print("重い処理")
  result <- rnorm(1) # ランダムな数字
  heavy_func3.cache <<- list(value=result, updated_at=now)
  return(result)
}

明示的なグローバル変数アクセスを関数経由に

heavy_func4 <- function() {
  now <- Sys.time()
  cache_name <- paste("heavy_func4", "cache", sep=".")
  if(exists(cache_name)) {
    cache <- get(cache_name)
    if (10 > now - cache$updated_at) {
      return(cache$value)
    }
  }
  print("重い処理")
  result <- rnorm(1) # ランダムな数字
  assign(cache_name, list(value=result, updated_at=now), envir=.GlobalEnv)
  return(result)
}

キャッシュを別関数化

cache.get <- function(key) {
  now <- Sys.time()
  cache_name <- paste(key, "cache", sep=".")
  if(exists(cache_name)) {
    cache <- get(cache_name)
    if (10 > now - cache$updated_at) {
      return(cache$value)
    }
  }
  return(NULL)
}

cache.set <- function(key, value) {
  now <- Sys.time()
  cache_name <- paste(key, "cache", sep=".")
  assign(cache_name, list(value=value, updated_at=now), envir=.GlobalEnv)
}

heavy_func5 <- function() {
  cache <- cache.get("heavy_func5")
  if(!is.null(cache)) return(cache)
  print("重い処理")
  result <- rnorm(1) # ランダムな数字
  cache.set("heavy_func5", result)
  return(result)
}

残りタスク

残りタスク
• キャッシュの更新時間を設定できるようにする
• キャッシュを高階関数化して関数を渡すとキャッシュ化した関数を返すようにする
• グローバル環境を使わないようにする
• キャッシュ化する関数のソースコードが変更された場合はキャッシュをクリアするようにする

• 自分の周りに居る凄腕プログラマーが実際に読んでいる本

• Rails(Web)アプリケーションのセキュリティ(パスワードハッシュstretch編)
• Rails(Web)アプリケーションのセキュリティ(ログファイル編)
• Symfony2のススメ1 ～認証とともに～
• Symfony2のススメ1.5 ～コンポーネントちょい話～
• Symfony2のススメ2 ～認証とともに～

• あなたにも今日こそPerlの文字化けが理解できるたった一つの原則
• iPad で「妄撮」をやってみました。
• MySQL InnoDBでのネクストキーロックの落とし穴

• Rを使ってお絵描き（アンパンマン）、Rを使ってお絵描き（アンパンマン3D）、MacのGrapherでアンパンマン
• グレートナビック風を動くようにした
• VOYAGE WiMAXボーイ(36才)をぷにょっとさせた

• 「新卒エンジニアがこのさき生き残るには」

• VOYAGE GROUP　エンジニアブログ : 勉強会
• VOYAGE GROUP　エンジニアブログ : presentation
  
• VOYAGE GROUP　エンジニアブログ : イベント

package balse;

import static org.junit.Assert.*;

import org.junit.Test;

public class BalsableTest {

	@Test
	public void test() {
		new Balsable().balse();
		fail();
	}

}

package balse;

public class BalsableRunner {
	public static void main(String...args) {
		new Balsable().balse();
	}
}

@Test
public void testBalsableProcess() throws Exception {
	ProcessBuilder pb = new ProcessBuilder("java",
			"-classpath", "./target/test-classes;./target/classes",
			"balse.BalsableRunner");
	Process p = pb.start();
	assertThat(p.waitFor(), is(1));
}

@Test
public void testBalsableThread() throws Exception {
	ProcessBuilder pb = new ProcessBuilder("java", "-classpath",
			"./target/test-classes;./target/classes",
			"balse.BalsableThreadRunner");
	Process p = pb.start();
	assertThat(p.waitFor(), is(1));

	// TODO: helperを作るべき
	InputStream is = p.getInputStream();
	BufferedReader br = new BufferedReader(new InputStreamReader(is));
	String line;
	List<String> lines = new ArrayList<String>();
	while ((line = br.readLine()) != null) lines.add(line);
	is.close();

	assertThat(lines.size(), is(2));
	assertThat(lines.get(0), is("時間だ！！答えを聞こう！！"));
	assertThat(lines.get(1), is("バルス！"));
}