R中的混淆字符串

Question

我有一個存儲在純文本文件中的密碼。我想以某種方式混淆它，以防有人在看我的顯示器。

理想情況下，我想用另一個默認字符串（比如「123」）加密一個密碼，並獲得密碼的混淆版本。然後，當我在代碼中需要密碼時，我想用相同的字符串「123」解密密碼。混淆密碼和正常密碼的長度不同也是好的。

所以，邏輯應該是：

encrypt(password, "123") -> obf_string 
decrypt(obf_string, "123") -> password 

我怎樣才能做到這一點？

P.S.我知道這不是安全的，但這是我現在想要的。

Answer 1

一個快速的方法來混淆是通過隨機數生成，這裏我嘗試：

encrypt <- function(password, string){ 
     set.seed(password) 
     encr <- round(runif(nchar(string), 0, 9)) 
     y <- as.integer(substring(string, seq(nchar(string)), seq(nchar(string)))) + encr 
     return(y) 
} 

decrypt <- function(password, string){ 
     set.seed(password) 
     encr <- round(runif(nchar(string), 0, 9)) 
     y <- paste0(string - encr, collapse="") 
     return(y) 
} 

你的字符串是如1984。您只需選擇一個密碼，例如2016。

> encrypt(2016, "1984") 
[1] 3 10 16 5 

你給他們encrypt()，函數返回你的字符串的大小相同的數值向量。找回列使用decrypt()你的密碼和矢量：

> decrypt(2016, c(3,10,16,5)) 
[1] "1984" 

一個不太懂事的替代，其還允許文本連接，通過base64編碼/解碼，使用base64enc包：

install.packages("base64enc") 
library(base64enc) 
base64encode(c(2,0,0,6)) 
base64decode("AgAABg==") 

Answer 2

跟進@zach評論，這個程序在攻擊的情況下是不安全的。這是特別有用的是你想混淆一個字符串（例如，從某人經過並看着屏幕），這個問題並不暗示安全性。

這是我的功能版本我以前的答案報道還接受帶有數字和字母的字符串：

obfuscate <- function(password, string){ 
     set.seed(password) 
     vec <- substring(string, seq(nchar(string)), seq(nchar(string))) 
     encr <- y <- vector("list",length(vec)) 
     letters <- rep(letters,2) # prolongue letters sequence 
     for (i in 1:length(vec)){ 
       ifelse(is.numeric(vec[i]),    # extracting encryption numbers 
         encr[[i]] <- round(runif(1, 0, 9)), # if numeric 
         encr[[i]] <- round(runif(1, 0, 26))) # if letters 

       ifelse(!is.na(as.numeric(vec[i])) , # encrypting 
         y[[i]] <- as.numeric(vec[i]) + encr[[i]],     # if numeric 
         y[[i]] <- letters[which(letters==vec[i])[1] + encr[[i]]]) # if letters 
     } 
     return(unlist(y)) 
} 

reveal <- function(password, y){ 
     set.seed(password) 
     for (i in 1:length(y)){ 
       ifelse(is.numeric(y[i]),    # extracting encryption numbers 
         encr[[i]] <- round(runif(1, 0, 9)), # if numeric 
         encr[[i]] <- round(runif(1, 0, 26))) # if letters 
       ifelse(!is.na(as.numeric(y[i])) , # encrypting 
         y[[i]] <- as.numeric(y[i]) - encr[[i]],     # if numeric 
         y[[i]] <- letters[which(letters==y[i])[1] - encr[[i]]]) # if letters 
     } 
     return(paste0(unlist(y), collapse="")) 
} 

下面是一個例子：

> obfuscate(2016,"a6b8") 
[1] "f" "10" "x" "11" 
Warning messages: 
1: In ifelse(!is.na(as.numeric(vec[i])), y[[i]] <- as.numeric(vec[i]) + : 
    NAs introduced by coercion 
2: In ifelse(!is.na(as.numeric(vec[i])), y[[i]] <- as.numeric(vec[i]) + : 
    NAs introduced by coercion 

注意，警告的數量是等於非數字字符的數量。如in this SO question所述，這可以用suppressWarnings()來抑制。我的首選是總是表達R警告。

> reveal(2016,c("f","10","x","11")) 
[1] "a6b8" 
Warning messages: 
1: In ifelse(!is.na(as.numeric(y[i])), y[[i]] <- as.numeric(y[i]) - : 
    NAs introduced by coercion 
2: In ifelse(!is.na(as.numeric(y[i])), y[[i]] <- as.numeric(y[i]) - : 
    NAs introduced by coercion