これもまた複雑なようで・・・。ぐぐって最初にあったこちらのサイトを参考に作成。 Message-ID # timestamp and random number (without hashing) getMessageID <- function(address){ lp <- paste(format(Sys.time(), "%Y%m%d%H%M%S"), runif(1), sep="") …

ようやくbase64エンコーディングができました。 base64.table <- c(LETTERS, letters, unlist(strsplit("0123456789+/", ""))) tobase64 <- function(str){ r <- charToRaw(str) paddings <- (3-length(r))%%3 r1 <- c(r, as.raw(rep(0, paddings))) m <- ma…