115 lines
2.2 KiB
C
115 lines
2.2 KiB
C
/************************************************
|
|
|
|
md5init.c -
|
|
|
|
$Author$
|
|
created at: Fri Aug 2 09:24:12 JST 1996
|
|
|
|
Copyright (C) 1995-1998 Yukihiro Matsumoto
|
|
|
|
************************************************/
|
|
/* This module provides an interface to the RSA Data Security,
|
|
Inc. MD5 Message-Digest Algorithm, described in RFC 1321.
|
|
It requires the files md5c.c and md5.h (which are slightly changed
|
|
from the versions in the RFC to avoid the "global.h" file.) */
|
|
|
|
#include "ruby.h"
|
|
#include "md5.h"
|
|
|
|
static VALUE cMD5;
|
|
|
|
static VALUE
|
|
md5_update(obj, str)
|
|
VALUE obj;
|
|
struct RString *str;
|
|
{
|
|
MD5_CTX *md5;
|
|
|
|
Check_Type(str, T_STRING);
|
|
Data_Get_Struct(obj, MD5_CTX, md5);
|
|
MD5Update(md5, str->ptr, str->len);
|
|
|
|
return obj;
|
|
}
|
|
|
|
static VALUE
|
|
md5_digest(obj)
|
|
VALUE obj;
|
|
{
|
|
MD5_CTX *md5, ctx;
|
|
unsigned char digest[16];
|
|
|
|
Data_Get_Struct(obj, MD5_CTX, md5);
|
|
ctx = *md5;
|
|
MD5Final(digest, &ctx);
|
|
|
|
return rb_str_new(digest, 16);
|
|
}
|
|
|
|
static VALUE
|
|
md5_hexdigest(obj)
|
|
VALUE obj;
|
|
{
|
|
MD5_CTX *md5, ctx;
|
|
unsigned char digest[16];
|
|
char buf[33];
|
|
int i;
|
|
|
|
Data_Get_Struct(obj, MD5_CTX, md5);
|
|
ctx = *md5;
|
|
MD5Final(digest, &ctx);
|
|
|
|
for (i=0; i<16; i++) {
|
|
sprintf(buf+i*2, "%02x", digest[i]);
|
|
}
|
|
return rb_str_new(buf, 32);
|
|
}
|
|
|
|
static VALUE
|
|
md5_clone(obj)
|
|
VALUE obj;
|
|
{
|
|
MD5_CTX *md5, *md5_new;
|
|
|
|
Data_Get_Struct(obj, MD5_CTX, md5);
|
|
obj = Data_Make_Struct(CLASS_OF(obj), MD5_CTX, 0, free, md5_new);
|
|
*md5_new = *md5;
|
|
|
|
return obj;
|
|
}
|
|
|
|
static VALUE
|
|
md5_new(argc, argv, class)
|
|
int argc;
|
|
VALUE* argv;
|
|
VALUE class;
|
|
{
|
|
VALUE arg, obj;
|
|
MD5_CTX *md5;
|
|
|
|
rb_scan_args(argc, argv, "01", &arg);
|
|
if (!NIL_P(arg)) Check_Type(arg, T_STRING);
|
|
|
|
obj = Data_Make_Struct(class, MD5_CTX, 0, free, md5);
|
|
MD5Init(md5);
|
|
if (!NIL_P(arg)) {
|
|
md5_update(obj, arg);
|
|
}
|
|
|
|
return obj;
|
|
}
|
|
|
|
void
|
|
Init_md5()
|
|
{
|
|
cMD5 = rb_define_class("MD5", rb_cObject);
|
|
|
|
rb_define_singleton_method(cMD5, "new", md5_new, -1);
|
|
rb_define_singleton_method(cMD5, "md5", md5_new, -1);
|
|
|
|
rb_define_method(cMD5, "update", md5_update, 1);
|
|
rb_define_method(cMD5, "digest", md5_digest, 0);
|
|
rb_define_method(cMD5, "hexdigest", md5_hexdigest, 0);
|
|
rb_define_method(cMD5, "clone", md5_clone, 0);
|
|
}
|