在Delphi中解密Magento加密的信用卡号
问题背景：
公司希望使用Magento来进行接单，而后把订单导入到一个ERP系统中(订单处理引擎)。
问题：
在使用WebService从Magento中获取Payment信息时，信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)！
仔细研究了一下Magento的加密方式(/magento/app/code/core/Mage/Core/Model/Encryption.php)发现Magento对于敏感信息的处理是先加密、再用base64进行编码。
(其实这个问题可以变通一下，用PHP写一个解密文件，以加密后的信用卡号做为参数，返回值为信用卡的明文。Delphi中可以用Msxml2.XMLHTTP直接发送参数，但总觉得别扭。不过这是一个保底方案)
BlowFish是PHP自身提供的算法模块(用mcrypt_list_algorithms()查看其所支持的的算法模块的命令)。
public function encrypt($data)
{
return base64_encode($this->_getCrypt()->encrypt((string)$data));
}
知道这些后，进而跟踪其使用的加密方式是BlowFish。那下面的工作就简单了。
需要分二步骤来完成解密工作：
一.找到Delphi版的BlowFish(之所以找Delphi版源码而不是直接找DLL，是怕有些细节点PHP的算法会与Delphi的算法有差异，修改方便，结果被猜中了。
1.1 在PHP中，如果明文是16位的，加密后的密文也会是16位的。在Delphi中，如果明文是16位的，加密后密文将会变为24位。
1.2 在PHP中，如果明文不够16位，会以chr(0)来填充，以便以8位为一个Block进行加密。则在Delphi中，如果明文不够16位，会以一个数字 来填充。
二.对信用卡信息进行Base64解码与BlowFish解密工作。
下面就是对信用卡信息的解密：
uses
BlowFish,EncdDecd ;//BlowFish的源码下载见页底
var
DecryptCCNum:TBlowfish;
outstring:string;
begin
DecryptCCNum:=TBlowfish.Create(nil);
try
with DecryptCCNum do
begin
DecryptCCNum.CipherMode:=ECB ;
DecryptCCNum.StringMode:=smNormal;
DecryptCCNum.InitialiseString('4dc73a5cfb22ab514751cded9ef2db4b'); //这个是Magento安装时提供的密钥，如果忘了可以在安装程序下面在路径app/etc/下的local.xml文件
DecryptCCNum.DecString(DecodeString('加密后的信用卡号') ,outstring);
end;
fina
相关文档：
将远程控制应用于教学中，已成为目前计算机化教学的重要手段。一定有很多的网虫想了解这种网络教学方式的编程原理吧。在此我们就以一个简单的远程控制程序作为示例，说明这种网络编程的基本原理。本程序以Delphi编程为例。
其实该程序的工作机制很简单，受控方运行一个程序，用于侦听端口并接收数据包，而主控方通过� ......
delphi 编写的com 对象 用php调用
的
实例
delphi:
function Tmyxml.Get_xml: WideString;
begin
Get_xml:='wo shi a lei!';
end;
function Tmyxml.Get_xmldata: WideString;
var
xmlStr:string;
begin
xmlStr := '<?xml version="1.0" & ......
---
Delphi in a Unicode World Part I: What is Unicode, Why do you need
it, and How do you work with it in Delphi?
By: Nick
Hodges
原文链接：http://dn.codegear.com/article/38437
Abstract: This article discusses Unicode, how Delphi developers
can benefit from using Unicode, and ho ......
var
arrChar : array [0..4] of Char;
b : Byte;
s : string;
begin
s := 'Test';
Move(Pointer(s)^, arrChar, Length(s)); //string to array of char
ShowMessage(arrChar);
b := Ord(s[1]); //First byte string to one single byte
......
现在应用系统流行用B/S开发，早几年前可是C/S的天下呢，我现在做的某航空公司货运结算维护工作，其系统就是利用Delphi开发的C/S应用程序！在日常的维护工作中，难免要对已经做好的COM+组件进行调试，以查看具体的处理逻辑！本文就是介绍在WindowsXP环境下如何在Delphi中调试COM+组件！
第一步：记录下你希望调试的COM+组件 ......
