2014-02-10 65 views

回答

24

digest絕對適合這個任務,所以,首先我們加載:

library(digest) 

然後創建/負載/等。測試data.framedf

txt <- 
"ID,VID 
1,xyz-0001 
2,abc-0987" 

df <- read.table(header=T, text=txt, sep=",", stringsAsFactors=F) 
df 

最初的數據是這樣的:

ID  VID 
1 1 xyz-0001 
2 2 abc-0987 

然後我們可以使用函數digest與指定的算法:

df$VID <- sapply(df$VID, digest, algo="md5") 
df 

現在,我們已經在df散列列VID

ID        VID 
1 1 44e3a9cf85f802ef50f18e64e01c5e32 
2 2 c576ff180b2046c1a3ae939766588fd3 
10

隨着除了redmode的回答是:

library(digest) 
txt <- "hello world" 
hash <- digest(txt, algo="md5", serialize=F) 
hash 

[1] 「5eb63bbbe01eeed093cb22bb8f5acdc3」

設置序列化選項設置爲FALSE,使你的結果與你會從網上哈希得到什麼一致發電機,如thisthis