namespace Heron.Helpers

 open System.Text

 open System.Security.Cryptography

 module Encrypt =

     let Sha1Hash (str : string) =

         let sha1 = SHA1.Create ()

         let sha1arr = sha1.ComputeHash (Encoding.UTF8.GetBytes (str))

         let sha1str = String.concat "" (Array.init  (fun i -> sprintf "%02x" sha1arr.[i]))

         sha1str

     let Md5Hash (str : string) =

         let md5 = MD5.Create ()

         let md5arr = md5.ComputeHash (Encoding.UTF8.GetBytes (str))

         let md5str = String.concat "" (Array.init  (fun i -> sprintf "%02x" md5arr.[i]))

         md5str

namespace Heron.Helpers

open System.Text

open System.Security.Cryptography

/// 这段不用多说，namespace和C#中的功能一样，声明命名空间。

/// open相当于using ，导入一个命名空间

module Encrypt =

/// 这里的module是用来区分个模块功能的，对程序意义不大，在C#里被当作一个静态类处理兼容。F#是缩进敏感的语言，缩进比这段语句多一层的都属于这个模块下面的。所以下面的两个函数可以理解为这个模块的静态方法。

let Sha1Hash (str : string) =

    let sha1 = SHA1.Create ()

    let sha1arr = sha1.ComputeHash (Encoding.UTF8.GetBytes (str))

    let sha1str = String.concat "" (Array.init  (fun i -> sprintf "%02x" sha1arr.[i]))

    sha1str

/// let是用来绑定一个标识符，可以是实数，可以是字符串，可以是对象，也可以是函数，这里绑定的就是一个函数，带有一个string类型的参数str，最后一行为返回值，这里就是返回sha1str这个标识。实际上纯函数语言里是没有变量的，也没有基本类型，所有的东西都是函数，比如 let a = 0，你可以理解为没有参数，返回int的函数。F#为了兼容.net平台，类型都是静态绑定，靠自动推算来得到类型。

/// 这里用到的F#特性不多，只有第4行用到一点。可能看起来有点晕，我们来分解一下

Array.init  (fun i -> sprintf "%02x" sha1arr.[i])

/// Array.init 这是一个函数，有两个参数，第一个表示返回的数组个数，第二个参数为一个匿名函数，就是括号里的内容(fun i -> sprintf "%02x" sha1arr.[i])。这个函数会迭代i 从0到19 刚好对应sha1arr的下标，然后一次转为16进制的数表示，不足的前面补零。

String.concat "" Array

/// 这个是把一个数组元素拼接为一个字符串的函数，第一个参数是拼接的符号，这里是空字符串，第二个参数是数组，就是上面生成的20个16进制的数。

/// 是不是代码简洁了很多呢