原文が英語というが，アルファベット出現頻度を頼りにするにはちょっと無理がある。
どうせ，換字式だろうとたかをくくって，しらみつぶしに検索。
tbireazrag bs gur crbcyr, ol gur crbcyr, sbe gur crbcyr, funyy abg crevfu sebz gur rnegu
======
以下のプログラムで
s = "tbireazrag bs gur crbcyr, ol gur crbcyr, sbe gur crbcyr, funyy abg crevfu sebz gur rnegu"
a = unlist(strsplit(s, ""))
table(a)
for (b in 1:26) {
x = chartr(paste(letters, collapse=""), paste(letters[c(b:26,1:(b-1))], collapse=""), s)
cat(letters[b], " ", x, "\n")
}
# tbireazrag bs gur crbcyr, ol gur crbcyr, sbe gur crbcyr, funyy abg crevfu sebz gur rnegu
# government of the people, by the people, for the people, shall not perish from the earth
