捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 登陆QQ测试.最新加密方式
关键字:QQ,加密,MD5,登陆
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:5 火柴
深浅度:中级 完成时间:2013/5/5
发布者:lalaboy (奖励5火柴) 发布时间:2013/5/6
编辑器:Delphi7 语  种:简体中文
分 类:网络 下载浏览:121/14308
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
const
  BUF_SIZE = 20480; //$7FFF;
var
  Buf: array[0..BUF_SIZE] of Char;
  BufCount, Count, SrcLen, i, ArrCount: LongInt;
  Ch: Char;
label
  CATCH_DIV;
begin
  Ch := #0; //Jacky
  try
    SrcLen := Length(Str);
    BufCount := 0;
    Count := 1;

    if SrcLen >= BUF_SIZE - 1 then begin
      Result := ';
      Dest := ';
      Exit;
    end;

    if Str = ' then begin
      Dest := ';
      Result := Str;
      Exit;
    end;
    ArrCount := SizeOf(Divider) div SizeOf(Char);

    while True do begin
      if Count <= SrcLen then begin
        Ch := Str[Count];
        for i := 0 to ArrCount - 1 do
          if Ch = Divider[i] then
          goto CATCH_DIV;
      end;
      if (Count > SrcLen) then begin
        CATCH_DIV:
        if (BufCount > 0) then begin
          if BufCount < BUF_SIZE - 1 then begin
          Buf[BufCount] := #0;
          Dest := string(Buf);
          Result := Copy(Str, Count + 1, SrcLen - Count);
          end;
          break;
        end else begin
          if (Count > SrcLen) then begin
          Dest := ';
          Result := Copy(Str, Count + 2, SrcLen - 1);
          break;
          end;
        end;
      end else begin
        if BufCount < BUF_SIZE - 1 then begin
          Buf[BufCount] := Ch;
          Inc(BufCount);
        end; // else
        //ShowMessage ('BUF_SIZE overflow !');
      end;
      Inc(Count);
试了一下登陆QQ,用的httpget,可以正常登陆,试过idhttp,但就是不成功.得不到COOKIE,哪位高手帮忙一下.如果用IDHTTP搞好了发个出来,谢谢,
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论27条 当前显示最后6条评论
gmq96 2013/6/10 21:46:28
草拟妈的,你去死吧,还你妈的回复个鸡巴!~
lalaboy 2013/6/10 21:47:15
呵呵.你叫管理员撤精品吧.OK?操.少J8在这装大瞎
gmq96 2013/6/10 21:48:19
你去死吧。谁他们装逼谁知道,你看看上面几个人说你,还装逼回复鸟啊!~
enjy 2014/1/2 16:04:39
lalaboy已经公布了Md5单元,其中有function QQmima(PWd: string; t: TFanhui; js: string): string; 函数。
to eeiq 
md5里面的这一句报错
result:=  js1.Eval('hexchar2bin(' + ' + result + ' + ')'); 

改为:
function QQmima(PWd: string; t: TFanhui; js: string): string;
var
  js1: OleVariant;
  str: string;
begin
  js1 := CreateOleObject('ScriptControl'); // 创建组件
  js1.Language := 'JavaScript'; // 指定组件所使用的语言,也可以是VBScript
  js1.AddCode(js); // 加入JS代码,如上面的代码
  result := js1.Eval('md5("'+PWd+'")');
  result:=  js1.Eval('hexchar2bin("'+result+'")');
 // result := js1.Eval('          ("'+result+'")');
  result := js1.Eval('md5("'+result+T.HEX+'")');
  result := js1.Eval('md5("'+result+UpperCase(t.code)+'")');
end;

即可;
编译可以登录
hong9906 2014/1/16 17:39:02
网络验证方式嘛,不是SOCKET封包形式
zdhsoft 2014/1/20 21:15:54
好久没来了!!!!
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2012 V3.01 沪ICP备05001939号 更新RSS列表