随笔档案「2011年8月」 - it亮眼

分享：用四十种语言分别写一个MD5算法之1 C语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之1 C语言MD5算法 Library: OpenSSL#include <stdio.h>#include <stdlib.h>#include <string.h>#include <openssl/md5.h>const char *string = "hello csdner";int main(){ int i; unsigned char result[MD5_DIGEST_LENGTH]; MD5(string, strlen(string), result); // ou 阅读全文

posted @ 2011-08-13 00:03 it亮眼阅读(352) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之2 C#语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之2 C#语言MD5算法 using System.Text;using System.Security.Cryptography;byte[] data = Encoding.ASCII.GetBytes("hello csdner");byte[] hash = MD5.Create().ComputeHash(data);Console.WriteLine(BitConverter.ToString(hash).Replace("-", "").ToLower());版权所有：百万商业圈未阅读全文

posted @ 2011-08-13 00:02 it亮眼阅读(149) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之3 lojure语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之3 lojure语言MD5算法 (apply str (map (partial format "%02x") (.digest (doto (java.security.MessageDigest/getInstance "MD5") .reset (.update (.getBytes "hello csdner"))))))版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：bwsyq@bwsyq.com 更多详情>>开源：完全自阅读全文

posted @ 2011-08-13 00:02 it亮眼阅读(143) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之32 PowerShell语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之32 PowerShell语言MD5算法 $string = "hello csdner"$data = [Text.Encoding]::UTF8.GetBytes($string)$hash = [Security.Cryptography.MD5]::Create().ComputeHash($data)([BitConverter]::ToString($hash) -replace '-').ToLower()版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：阅读全文

posted @ 2011-08-12 22:38 it亮眼阅读(198) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之5 D语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之5 D语言MD5算法 Library: Tangomodule md5test ;import tango.io.digest.Md5 ;import tango.io.Stdout ;void main(char[][] args) { auto md5 = new Md5() ; for(int i = 1 ; i < args.length ; i++){ md5.update(args[i]) ; Stdout.formatln("[{}]=>\n[{}]", args[i], md5.hexDigest()) 阅读全文

posted @ 2011-08-12 21:55 it亮眼阅读(185) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之4 Common Lisp语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之4 Common Lisp语言MD5算法 (require #+sbcl 'sb-md5 #-sbcl 'md5)(defvar +letters+ "0123456789abcdef")(defun octets->letters (octet-vector) (with-output-to-string (stream) (loop for i across octet-vector do (flet ((foo (x) (aref +letters+ (ldb (byte x (- x 4)) i)))) 阅读全文

posted @ 2011-08-12 21:55 it亮眼阅读(316) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之7 E语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之7 E语言MD5算法 def makeMessageDigest := <import:java.security.makeMessageDigest>def sprintf := <import:java.lang.makeString>.formatdef digest := makeMessageDigest.getInstance("MD5") \ .digest("hello csdner".getBytes("iso-8859-1"))for b in di 阅读全文

posted @ 2011-08-12 21:54 it亮眼阅读(166) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之6 Delphi语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之6 Delphi语言MD5算法 program MD5Hash;{$APPTYPE CONSOLE}uses SysUtils, IdHashMessageDigest;function MD5(aValue: string): string;begin with TIdHashMessageDigest5.Create do begin Result:= HashStringAsHex(aValue); Free; end;end;begin Writeln(MD5('hello csdner')); Readln;end.版权所有：阅读全文

posted @ 2011-08-12 21:54 it亮眼阅读(208) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之9 Factor语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之9 Factor语言MD5算法 USING: kernel strings io checksums checksums.md5 ;"hello csdner"md5 checksum-bytes hex-string print版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：bwsyq@bwsyq.com 更多详情>>开源：完全自主研发搜索引擎1.0源代码及说明，单机400万网页，任意50词以内的检索不超过 20毫秒开源：基于百万商业圈.NET开发框架开发的并行带分词的阅读全文

posted @ 2011-08-12 21:53 it亮眼阅读(176) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之8 Erlang语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之8 Erlang语言MD5算法 -module(tests).-export([md5/1]).md5(S) ->string:to_upper( lists:flatten([io_lib:format("~2.16.0b",[N]) || <<N>> <= erlang:md5(S)])).Testing it:1> c(tests).{ok,tests}2> tests:md5("hello csdner").版权所有：百万商业圈未经许可不得转载，有任何疑问请阅读全文

posted @ 2011-08-12 21:53 it亮眼阅读(286) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之10 Forth语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之10 Forth语言MD5算法 include ffl/md5.fs\ Create a MD5 variable md1 in the dictionarymd5-create md1\ Update the variable with datas"hello csdner" md1 md5-update\ Finish the MD5 calculation resulting in four unsigned 32 bit words\ on the stack representing the hash valuemd1 m 阅读全文

posted @ 2011-08-12 21:52 it亮眼阅读(182) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之12 Go语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之12 Go语言MD5算法 package mainimport ( "crypto/md5" "fmt")func main() { for _, p := range [][2]string{ } { validate(p[0], p[1]) }}var h = md5.New()func validate(check, s string) { h.Reset() h.Write([]byte(s)) sum := fmt.Sprintf("%x", h.Sum()) if sum != c 阅读全文

posted @ 2011-08-12 21:51 it亮眼阅读(169) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之11 Frink语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之11 Frink语言MD5算法 println[messageDigest["hello csdner", "MD5"]]版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：bwsyq@bwsyq.com 更多详情>>开源：完全自主研发搜索引擎1.0源代码及说明，单机400万网页，任意50词以内的检索不超过 20毫秒开源：基于百万商业圈.NET开发框架开发的并行带分词的采集器百万商业圈 .NET 开发框架2.0及开发框架API说明书(BWFW)(含并行计算阅读全文

posted @ 2011-08-12 21:51 it亮眼阅读(177) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之14 Io语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之14 Io语言MD5算法 Io> MD5==> MD5_0x97663e0: appendSeq = MD5_appendSeq() md5 = MD5_md5() md5String = MD5_md5String()Io> MD5 clone appendSeq("hello csdner") md5String版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：bwsyq@bwsyq.com 更多详情>>开源：完全自主研发搜索引擎1.0源代码及说明，单阅读全文

posted @ 2011-08-12 21:50 it亮眼阅读(210) 评论(0) 推荐(0)

分享：用四十种语言分别写一个MD5算法之13 Haskell语言MD5算法

摘要：分享：用四十种语言分别写一个MD5算法之13 Haskell语言MD5算法 import Data.Digest.OpenSSL.MD5(md5sum);import Data.ByteString(pack);import Data.Char(ord)main = doputStrLn $ md5sum $ pack $ map (fromIntegral.ord) "hello csdner"Use in GHCi:*Main> main版权所有：百万商业圈未经许可不得转载，有任何疑问请与我本人联系 QQ 99923309 Mail：bwsyq@bwsyq.co 阅读全文

posted @ 2011-08-12 21:50 it亮眼阅读(198) 评论(0) 推荐(0)

08 2011 档案

公告