博客园_禹过天晴

(转)什么叫年终奖?

2011-12-27T13:56:00Z

节选自己 http://money.msn.com.cn/joblife/20111227/16321347264.shtml

从前有只羊，每天干8小时的活。有一天主人告诉它：多干活有奖励。于是羊每天干10小时。此后主人开始把它身上的羊毛剪下三分之一。年底了，主人给它织了件毛衣，然后告诉它：“诺，这是你的奖励，明年继续努力！”

本文链接

(原)产品化：架构、过程管理

2011-12-13T00:53:00Z

背景：1、产品化是我们坚定不移的目标！

2、产品化是我日常工作的一部份。

本文链接

(学)管理联考为什么要考论证有效性分析和论评文？陈君华

2011-12-12T11:44:00Z

管理联考为什么要考论证有效性分析和论评文？陈君华

主要原因在于管理的本质在于通过他人以更好地完成组织的任务。而要通过他人，就必须要通过沟通。所以，管理的本质就是沟通。而沟通的表现形式无非就是“听”和“说”。论证有效性分析主要考我们“听”，也即理解和回应别人的话的能力。论说文则主要考我们“说”，也即说服别人接受我们的思想和观点的能力。可见，这两篇作文考试旨在通过测试我们的沟通能力来推断我们的管理潜质，因此，它是有深意的。

本文链接

ABM视频播放密码

2011-12-04T11:06:00Z

该文被密码保护。

(转)qiushibaike

2011-10-14T02:20:00Z

今天从母上那里听到一则远房亲戚的八卦，顿时觉得琼瑶阿姨落后了有木有！一帘幽梦弱爆了有木有！小说原来还是不能超越生活啊有木有！本八卦虽经三姑六婆加工润色，但基本符合事实，如有雷同……纯属悲剧！开八！话说LZ有一远方表姐，从小到大就是LZ的梦魇有木有！她就是大人口中那个“别人家小孩”！从小聪明漂亮学习优异乖巧听话帮忙家事不乱花钱毕业后找到一高薪职业步步高升26岁和青梅竹马的初恋男友结婚！简直就是“别人家小孩”的完美诠释有木有！作为她年龄差不太大的同性亲戚，楼主表示鸭梨很大很大！但姐姐在28岁那年离婚了，当时母上对这事还讳莫如深来着，今天我算知道原因了…… 其实这则八卦没那姐姐什么事，但由于

(转)Oracle、SQL Server下MD5+Base64密码加密实现

2011-09-18T05:03:00Z

转自:http://blog.csdn.net/lele5000/article/details/6704247

写在前面：

MD5和Base64的函数实现并不是本文的重点，重点是在实现过程中遇到的字符集转换的麻烦

最近由于工作需要，要将BIEE与公司现有的ERP系统做集成，使用外部表的方式。

现有系统基于.Net平台，数据库为SQL Server 2008 R2，用户密码采用先算MD5在转Base64的方式存于数据库中。

代码逻辑如下

view plain copy to clipboard print ?

byte[] byteString = null;
MD5 md5 = MD5.Create();
byteString = md5.ComputeHash(Encoding.Unicode.GetBytes(Str));
md5.Clear();
string NewStr = Convert.ToBase64String(byteString);

byte[] byteString = null;
MD5 md5 = MD5.Create();
byteString = md5.ComputeHash(Encoding.Unicode.GetBytes(Str));
md5.Clear();
string NewStr = Convert.ToBase64String(byteString);

Encoding.Unicode.GetBytes(Str)这句为最关键的部分，其作用是把Str转换成了Unicode字节数组，正是这里给整个工作带来了困难！因为本人不懂C#，所以不知道C#里的Unicode是使用的UTF16LE(小头)，而非常见的UTF16BE(大头)。SQL Server 里的Nvachr应该也是采用的是UTF16LE，而Oracle里的NVarchar2则是采用的UTF16BE，正是因为这点导致MD5出来的值串不一致！

对于qaz123三者的输出值分别为：

Oracle:

view plain copy to clipboard print ?

SQL> select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5('qaz123'))) from dual;
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
NPhcqA7DU9MFK4otOXOgxQ==

SQL> select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5('qaz123'))) from dual;
 
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
NPhcqA7DU9MFK4otOXOgxQ==

SQL Server:

view plain copy to clipboard print ?

select dbo.f_ToBase64(hashbytes('MD5',convert(NVARCHAR,'qaz123')))
LwUQYUuskyOhnZXD8WUh8Q==

select dbo.f_ToBase64(hashbytes('MD5',convert(NVARCHAR,'qaz123'))) 

LwUQYUuskyOhnZXD8WUh8Q==

C#:

LwUQYUuskyOhnZXD8WUh8Q==

Oracle的字符集为AL32UTF8、SQL Server的字符集为GBK

由于qaz123在UTF8和UTF16下的编码都一样所以就算我在Oracle下把qaz123转换成UTF16，其最终结果还是不是预期的，如下：

view plain copy to clipboard print ?

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(N'qaz123'))) from dual;
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
NPhcqA7DU9MFK4otOXOgxQ==

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(N'qaz123'))) from dual;
 
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
NPhcqA7DU9MFK4otOXOgxQ==

直到我把其转为UTF16LE，结果才和C#中的一样

注：Oracle中的UTF16默认为UTF16BE

view plain copy to clipboard print ?

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(convert('qaz123','AL16UTF16LE')))) from dual;
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
LwUQYUuskyOhnZXD8WUh8Q==

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(convert('qaz123','AL16UTF16LE')))) from dual;
 
UTL_RAW.CAST_TO_VARCHAR2(UTL_E
--------------------------------------------------------------------------------
LwUQYUuskyOhnZXD8WUh8Q==

至此，搞定！

为了验证上面我的说法，可以看一下Oracle中，qaz123在不同编码下的代码点

view plain copy to clipboard print ?

SQL> select 'UTF8',dump('qaz123') from dual
2 union all
3 select 'UTF16BE',dump(N'qaz123') from dual
4 union all
5 select 'UTF16LE', dump(convert('qaz123','AL16UTF16LE')) from dual
6 ;
'UTF8' DUMP('QAZ123')
------- ----------------------------------------------
UTF8 Typ=96 Len=6: 113,97,122,49,50,51
UTF16BE Typ=96 Len=12: 0,113,0,97,0,122,0,49,0,50,0,51
UTF16LE Typ=1 Len=12: 113,0,97,0,122,0,49,0,50,0,51,0

SQL> select 'UTF8',dump('qaz123') from dual
  2  union all
  3  select 'UTF16BE',dump(N'qaz123') from dual
  4  union all
  5  select 'UTF16LE', dump(convert('qaz123','AL16UTF16LE')) from dual
  6  ;
 
'UTF8'  DUMP('QAZ123')
------- ----------------------------------------------
UTF8    Typ=96 Len=6: 113,97,122,49,50,51
UTF16BE Typ=96 Len=12: 0,113,0,97,0,122,0,49,0,50,0,51
UTF16LE Typ=1 Len=12: 113,0,97,0,122,0,49,0,50,0,51,0

下面给出Oracle和SQL Server下的相关函数实现代码

Oracle:

创建MD5函数

view plain copy to clipboard print ?

CREATE OR REPLACE FUNCTION GET_MD5
( p_str in varchar2)
RETURN varchar2 IS
BEGIN
RETURN Utl_Raw.Cast_To_Raw(DBMS_OBFUSCATION_TOOLKIT.MD5(input_string => lower(P_Str)));
END;

CREATE OR REPLACE FUNCTION GET_MD5
( p_str in varchar2)
RETURN varchar2 IS
BEGIN 
RETURN Utl_Raw.Cast_To_Raw(DBMS_OBFUSCATION_TOOLKIT.MD5(input_string => lower(P_Str)));
END;

调用转换成Base64

view plain copy to clipboard print ?

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(convert('qaz123','AL16UTF16LE')))) from dual;

select utl_raw.cast_to_varchar2(utl_encode.base64_encode(GET_MD5(convert('qaz123','AL16UTF16LE')))) from dual;

SQL Server:

从SQL Server 2005开始，其自带了hashbytes函数用于生成字符串的Hash值，所以MD5这一步就可以直接采用现有的函数了。

至于转换成Base64，系统并没有提供相关函数，不过我们有变通的方法，原理是SQL Server使用FOR XML 生成xml 实例时，binary 数据使用base64 编码

函数如下：

view plain copy to clipboard print ?

create function f_ToBase64
(@bin varbinary(max))
returns varchar(max)
as begin
return cast(N'' as xml).value('xs:base64Binary(xs:hexBinary(sql:variable("@bin")))', 'varchar(max)')
end

create function f_ToBase64
(@bin varbinary(max))
returns varchar(max)
as begin
return cast(N'' as xml).value('xs:base64Binary(xs:hexBinary(sql:variable("@bin")))', 'varchar(max)')
end

最终调用：

view plain copy to clipboard print ?

select dbo.f_ToBase64(hashbytes('MD5',convert(NVARCHAR,'qaz123')))

select dbo.f_ToBase64(hashbytes('MD5',convert(NVARCHAR,'qaz123')))

特别需要注意红色部分，这是为了和C#代码逻辑保持一致。

本文链接

(原)软件开发过程管理体系改进计划

2011-09-09T01:24:00Z

列宁说：学习学习再学习，努力努力再努力！

一、过程管理体系改进目的

1、整合现有各版框架优势、整理项目模块在开发工具中的组织形式，以减少在开发、测试、发布等环节中一些重复、低效的工作上的人力投入；

2、整理、简化、明确各项工作常规流程，规范软件整体开发过程，方便新员工快速了解、融入开发过程，缩短成长周期；

2、利用好设计、License管理、安装包制作等各类工具，通过工具的应用规范工作过程、简化人工操作、降低工作难度，以节省人力成本；

二、过程管理体系概念及工作内容层次示意图

说明：

1、资源管理层为非项目型基础工作，为公司的项目、产品开发提供资源服务；

2、项目管理体系层为管理概念，主要明确各项工作承担人、监管人及控制重点等；

3、执行保障体系层，为具体工作内容，即通过一系列的评审、评议对项目过程进行监控、纠偏，减少项目风险；

4、工程管理层，为具体项目的过程执行，通过已有的管理规范和文档模板，进行项目过程的计划、跟踪、记录，同时根据保障体系需求，按项目节点或定期提交项目阶段汇报文档。

三、过程管理体系工作形式示意图

说明：

1、文档类型：依颜色不同分别为：体系标准文档、项目过程文档、监管控制文档；

2、体系标准文档基本上已有，但多以文字性内容为主，根据需求建议更改为流程图式说明，方便开发人员快速掌握和理解工作过程，但测试、版本发布等流程需要补充；

3、项目过程文档比较完善，可以延用现有标准；

4、监管控制文档更多体现为团队互动、由公司骨干参与项目管理、技术评审等工作，以及时发现、并群策群力快速解决问题，保障项目或产品的开发工作能按计划顺利进行。

四、过程管理体系梳理工作计划

1、框架、类库的合并，优化（此项工作已开始）；

2、各类规范、流程的简化整理，以易理解、可执行、可控制为目标（包括：开发、测试、发布等常规环节）；

3、各类小工具在开发过程中的使用方法说明整理（包括：数据库初始化、升级包制作、版本发布、License管理等。目前已有一些基础）。

本文链接

(原)Lazarus下WinCE终端、服务器心跳监控(Ping)源码

2011-08-31T00:49:00Z

背景：1、使用lnet做了WinCE的客户端以及Win32的服务器端，WinCE在休眠之后会因为lnet的通讯异常导致程序崩溃而退出，并且这种异常无法捕捉、处理。解决办法：

1、如果不保持lnet的联机状态，的确系统不会异常、退出，但每次都需要连接（需有有延时之后才能发消息），效率很低。

2、有必要做一个‘心跳’监控，在使用lnet通讯之前确定客户端是否已与服务器断开，如断开则提示重新连接lnet

3、Indy等包含icmp组件支持ping功能，但实践证明indy不支持WinCE。

4、此后分别查到icmp.dll 、iphlpapi.dll等组件可以实现ping的功能，经实践icmp、iphlpapi在Win32下很好用，但WinCE下icmp无法使用，iphlpapi反馈结果不正确（应该是本人二次封装导致的，原因未明）。

5、再后来群中有位朋友介绍了synapse v39（一个类indy的组件包），查了一下帮助写了一个Ping的小程序，在Win32、WinCE下通过（liunx等操作系统肯定不好用，因为这个组件包的ping也是基于iphlpapi.dll的）。

直接使用网盘下载: SPing.rar

本文链接

(原)UKEY Information

2011-08-16T14:27:00Z

管理密码:SuperC#Lipper008识别码：REDF123456789001种子码：REDF123456789001登录密码：29c59f02fd19435d17e326cc0d9135fd3DES密钥：SuperC#Lipper0083DES向量：78991204

(原)Lazarus 在 DataSet 转 MemDataSet

2011-08-03T08:35:00Z

Pascal下 DataSet中的内容是非离线的，就是说需要与数据库保持联机，这样很不好，会弄出很多连接出来，不喜欢。
MemDataSet，是可以保存离线内容的，于是就有了这个方法。

function TformMain.DataSet2MDataSet(dataSet:TDataSet):TMemDataSet;
var
i:Integer;
strColumn,strType,strSize,strValue:string;
mDataset:TMemDataSet;
begin
//初始化
mDataSet:= TMemDataset.Create(nil);
//字段
with dataSet do
for i := 0 to FieldCount-1 do
begin
     strColumn:= dataSet.Fields[i].FieldName;
     strType:= GetEnumName(TypeInfo(TFieldType),integer(dataSet.Fields[i].DataType)) ;
     strSize:= IntToStr(dataSet.Fields[i].DataSize);
     if strColumn ='SUMNUMBER'then
     Application.MessageBox(Pchar(strType),'',0);
     if (strType ='ftString') or (strType ='ftBCD')then
        mDataSet.FieldDefs.Add(strColumn, TFieldType(GetEnumValue(TypeInfo(TFieldType), strType)),StrToInt(strSize))
     else
        mDataSet.FieldDefs.Add(strColumn, TFieldType(GetEnumValue(TypeInfo(TFieldType), strType)));
end;
mDataSet.CreateTable;
mDataSet.Open;

//数据
dataSet.First;
with dataSet do
    while not dataSet.eof do
     begin
       mDataSet.Append;
       for i := 0 to FieldCount-1 do
        begin
            strValue:= dataSet.Fields[i].AsString;
            mDataSet.Fields[i].AsString:=strValue;
       end;
       dataSet.Next;
     end;
Result:=mDataSet;
end;

本文链接