捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
Delphi7+Indy9版飞信GreenFetion源码
关键字：Delphi7 Indy9 飞信 GreenFetion 源码
来　自：原创
平　台：Win2k/XP/NT,Win2003 下载所需：0 火柴
深浅度：中级 完成时间：2008/10/10
发布者：hmilyygq 发布时间：2008/10/17
编辑器：DELPHI7 语　　种：简体中文
分　类：网络 下载浏览：9334/17940
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
应网友要求，做了这个Delphi7版的飞信。

软件名称：Delphi7版飞信GreenFetion源码
开发环境：WindowsXP,Delphi7
三方控件：Indy9（Delphi自带）
说明:
  Delphi盒子(www.2ccc.com)首发。
  参考Php版飞信（http://sourceforge.net/projects/openfetion/）用Delphi实现了中国移动飞信2008协议的登录和发短信部分。其它功能并没有实现，不过在此基础上实现起来应该没有难度。
  该程序为纯绿色软件，不写注册表，无需Dll文件和配置文件。
  程序中用到的SHA1算法源码和TIEHttp控件均来源于网络，感谢二位作者。
  使用之前请先注册一个飞信号。

参考资料:
  1: 飞信协议分析， http://hi.baidu.com/nathan2007/blog/category/%B7%C9%D0%C5%D0%AD%D2%E9%B7%D6%CE%F6
  2: Php版飞信(http://sourceforge.net/projects/openfetion/，已经附加在根目录下，文件名是fetion.php)
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论13条 当前显示最后6条评论
onecool 2008/10/23 22:33:40
完整源代码：http://download.csdn.net/user/zt_tju
//onecool 2008年10月22日修改
function TFormMain.hash_password(pwd: string): string;
var
  SHA1Context: TSHA1Context;
  SHA1Digest: TSHA1Digest;
  tmpStr: string;
  p, r: array[0..256] of char;
  //type
  sss:array[0..3] of byte;
  zt:array[0..23] of byte;
  xxx:string;
     i:Integer;
begin
  FillMemory(@p[0], 257, 0);
  FillMemory(@r[0], 257, 0);
  zt[0]:=210;
  zt[1]:=180;
  zt[2]:=98;
  zt[3]:=8;
 
  SHA1Init(SHA1Context);
  SHA1Update(SHA1Context, PChar(pwd), Length(pwd));
  SHA1Final(SHA1Context, SHA1Digest);
  //上面是SHA1，SHA1Digest 为经过SHA1后的结果。
  for i:=4 to 23 do
  begin
       zt[i]:=SHA1Digest[i-4];
    end   ;

  SHA1Init(SHA1Context);
  SHA1Update(SHA1Context, @zt[0], 24);
  SHA1Final(SHA1Context, SHA1Digest);
    for i:=4 to 23 do
  begin
       zt[i]:=SHA1Digest[i-4];
    end   ;
  tmpStr := PChar(@zt);
  BinToHex(PChar(tmpStr), r, Length(tmpStr));
  Result := UpperCase(r);

end;
jack_zh 2008/10/26 17:11:11
为什么我的不能编译，总是报错：
[DCC Error] UnitMain.pas(271): E2003 Undeclared identifier: 'ReadString'
[DCC Error] UnitMain.pas(851): E2003 Undeclared identifier: 'ReadLn'
[DCC Error] UnitMain.pas(856): E2003 Undeclared identifier: 'Write'
[DCC Warning] UnitMain.pas(80): H2219 Private symbol 'FPhoneNum' declared but never used
[DCC Error] GreenFetion.dpr(14): F2063 Could not compile used unit 'UnitMain.pas'

我的系统是：Win2003 sp2+Delphi 2007
dk13love 2008/10/27 16:59:52
[Error] UnitMain.pas(383): Undeclared identifier: 'Connecttimeout'
出现这个错误，怎么解决呢
xyxia 2008/11/7 18:41:37
我的是纯字母的密码也不行,而且我也按照你22号的方式修改了hash_password方法,不知什么原因?
maltel 2008/12/2 18:15:05
测试了一下，还不错，就是发现联系人列表有些可以列出来，有些列不出来，不知道是什么问题？
wvins 2008/12/5 17:22:20
代码挺好的，谢谢分享
Delphi7下面测试通过。
目前在尝试修改让他能够通过ISA的NTLM认证。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表