盒子论坛 v2.1

为获取新浪网页日k线的数据，据说是FALSH的，需解密
biznow (biznow)对新浪网页日k线的FALSH解密方法如下：
谁研究一下，转换为可用的delphi代码

private const B64CHARS:String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";

        private function char2b64(param1:String) : uint
        {
          param1 = param1.replace(" ", "+");
          var _loc_2:* = this.B64CHARS.indexOf(param1);
          return _loc_2 >= 0 ? (_loc_2) : (0);
        }// end function

        public function b64arrayFormat(param1:Array, param2:Boolean) : Array
        {
          var _loc_9:Number = NaN;
          var _loc_3:* = this._cfg.isBond ? (10) : (100);
          var _loc_4:Array = [];
          var _loc_5:* = this.getTimeArray();
          var _loc_6:Number = 0;
          var _loc_7:Number = 0;
          var _loc_8:uint = 0;
          var _loc_10:int = 0;
          while (_loc_10 < 726)
          {

          _loc_8 = Math.floor(_loc_10 / 3);
          if (param2)
          {
          _loc_4.push({time:_loc_5[_loc_8], price:param1[(_loc_10 + 1)] / 1000});
          }
          else
          {
          _loc_4.push({time:_loc_5[_loc_8], avg_price:param1[_loc_10] / 1000, price:param1[(_loc_10 + 1)] / 1000, volume:param1[_loc_10 + 2] / _loc_3});
          if (_loc_4[_loc_8].volume > 0)
          {
          _loc_7 = _loc_7 + _loc_4[_loc_8].volume;
          }
          if (_loc_4[_loc_8].avg_price > 0)
          {
          _loc_9 = _loc_4[_loc_8].avg_price;
          }
          }
          _loc_10 = _loc_10 + 3;
          }
          if (_loc_4[0].price < 0)
          {
          var _loc_11:int = 0;
          _loc_6 = 0;
          var _loc_11:* = _loc_11;
          _loc_7 = _loc_11;
          var _loc_11:* = _loc_11;
          _loc_4[0].avg_price = _loc_11;
          _loc_4[0].price = _loc_11;
          }
          if (!param2)
          {
          _loc_4[0].totalVolume = _loc_7;
          _loc_4[0].totalAmount = _loc_7 * _loc_9;
          }
          return _loc_4;
        }// end function

        public function b642int32(param1:String) : Array
        {
          var _loc_3:int = 0;
          var _loc_4:int = 0;
          var _loc_5:int = 0;
          var _loc_6:int = 0;
          var _loc_7:int = 0;
          if (!param1)
          {
          return [];
          }
          var _loc_2:Array = [];
          _loc_7 = 0;
          _loc_5 = 0;
          _loc_3 = 0;
          while (_loc_3 < param1.length)
          {

          _loc_4 = this.char2b64(param1.charAt(_loc_3));
          _loc_6 = _loc_7 & 6 ? (_loc_7 & 7 ^ 7) : (5);
          _loc_5 = _loc_5 | _loc_4 >> 5 - _loc_6 << (_loc_7 ^ 7) - _loc_6;
          if (_loc_7 > 25)
          {
          _loc_7 = _loc_7 - 32;
          _loc_2.push(_loc_5);
          _loc_5 = 0;
          }
          _loc_5 = _loc_5 | (_loc_4 & (1 << 5 - _loc_6) - 1) << (_loc_7 | 7) + 4 + _loc_6;
          _loc_7 = _loc_7 + 6;
          _loc_3++;
          }
          return _loc_2;
        }// end function
----------
-
----------------------------------------------
-

作者：

wr960204 (武稀松)	★☆☆☆☆	-
	盒子活跃会员

2014/8/28 22:23:23

1楼：

就是最基本的Base64编解码,网上一搜一大把,高版本Delphi也自己带了
----------------------------------------------
武稀松http://www.raysoftware.cn

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/8/29 10:34:28

2楼：

delphi7下
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,EncdDecd;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

RichEdit1.Text:= DecodeString(RichEdit2.Text) ;

end;

end.
把var hq_str_ml_sz002535="vysAAMArAAD07BMAxCsAAPwrAADK0QIAzisAANQrAABi7QUAqisAAPgqAABApgsAhSsAACorAAAUrQsAeysAACorAADnNwcAdSsAAFIrAAAQCQcAdSsAAJgrAAAnjgQAdysAAJgrAAB7SAUAfCsAAMArAADjNQYAfisAAMArAACwpwIAhCsAACQsAADE+wMAkSsAAJIsAABx4gQAmisAACQsAADtBAQAnCsAABosAADBoQEAnysAAFYsAABgowEApisAABosAAAUeQQAqCsAADgsAAAkrQEArSsAAH4sAABaKwMAtisAAIgsAACoWAQAuSsAAFYsAACO8AIAvCsAADgsAAB2bgIAvysAADgsAADUbwIAwSsAAEIsAAC9sQIAxCsAAC4sAACY1wIAxSsAAPwrAADBxgEAxSsAAPIrAACSgAEAxisAAPIrAADsDQEAxisAAOgrAAB4cAMAxysAANQrAABxLwEAxysAANQrAAAbIgIAxysAAN4rAAB7YwEAxysAAAYsAACKSAEAyCsAAAYsAAAHVQEAySsAAAYsAADgvgEAySsAAPIrAABP/AAAyisAAPIrAABQOgIAyisAAPwrAAC40wAAyysAABosAABd1QEAzCsAABosAACQXwEAzCsAABAsAAD/yAEAzSsAAAYsAADBugAAzSsAABAsAACUiAEAzisAABAsAAC2xgEA0CsAAGAsAACchQMA2CsAALosAABotwYA7SsAAB4tAAB44Q0A/CsAAAAtAAAkXAoAAiwAAM4sAACDAQUAESwAAEYtAABAYgwAOSwAAIwtAAC1VBkAVCwAADwtAAC5EhUAWiwAADwtAACQqwUAXywAAHgtAAAsvwUAbCwAAJYtAADkTQwAgiwAANwtAAB08hMAoCwAAHIuAACS0BYAxywAABguAACKeh8AzywAAAQuAAA0sgkA2SwAAFQuAACsPwoA6ywAAGguAAAULRIA9ywAAAQuAABMpQ4A+iwAAA4uAABoFAUA/iwAAEAuAACKgAUABC0AAFQuAADuhQcADi0AAEouAACKAQ0AES0AACIuAABsngQAFC0AAEouAACmHwUAGC0AAGguAAC47QQAHy0AAHwuAACEhgkAKC0AAK4uAACoYgoAMy0AALguAADg6w0AOi0AAKQuAAAgYwkAPi0AAHwuAAA4ZgUAPy0AAGguAADowQIAQS0AAGguAAAM0wIAQy0AAJAuAAAIeAIASC0AALguAADsNQgASi0AAK4uAADc+QEATC0AAHwuAABYAgMATS0AAHIuAABo/gIATi0AAFQuAABMxgEATy0AAFQuAACMzAEAUS0AAEouAABIDgQAUy0AAEouAAB8TgMAUy0AAEouAAB8KAEAVC0AADYuAACo0wIAVS0AAA4uAAB8OwIAVi0AAL4tAADENQEAVi0AANwtAAD0iwIAVy0AAPotAABAywIAWC0AAPAtAAB4OwIAWC0AAPotAAAQxgAAWC0AAOYtAABUZwEAWC0AANItAACMBgEAWS0AANwtAAAIlwEAWS0AAOYtAAAwwAAAWS0AAPotAABoAQEAWS0AAAQuAAAQ7wAAWi0AAA4uAACYiAEAWy0AACwuAACgzAEAXC0AAEAuAAAE/QIAXS0AACwuAACMFgIAXS0AACwuAAComQEAXi0AACIuAACUQAMAXy0AAAQuAACsYwIAYC0AAAQuAADAJgIAYC0AAPAtAAAMxgAAYC0AAOYtAACUPQEAYC0AAPAtAAAQ1gAAYS0AAPAtAACoEAEAYS0AAAQuAACoOwEAYS0AAAQuAABcwQAAYi0AAPotAABM7AAAYi0AAOYtAABU0wAAYi0AANwtAADQTAEAYi0AAL4tAABcVwEAYi0AAIwtAADgCQIAYy0AAKAtAABEuQIAYy0AAMgtAACUtAIAYy0AAMgtAAAAAAAAYy0AAKotAABQfwMAZC0AANItAACghgEAZC0AAL4tAACwVAEAZC0AAIwtAAAg5AAAZC0AAHgtAACsTAIAZC0AAKAtAAAgkQEAZC0AAIItAACoQgEAZC0AAG4tAAD8dwEAZC0AAGQtAADYbAEAZC0AAG4tAACUVgEAZC0AAIItAACMYgIAZS0AAHgtAADEegIAZS0AAIItAACU2QAAZS0AAKotAAAUlQEAZS0AAKAtAAD4bwEAZS0AAIItAAAcpAAAZS0AAIwtAABUHAEAZS0AAHgtAABwKgEAZS0AAFotAACkRQIAZS0AACgtAAAMsgIAZS0AACgtAAAorQIAZS0AABQtAAAkWAEAZC0AACgtAABodQEAZC0AAEYtAACklgEAZC0AAEYtAADwBAEAZC0AACgtAAC4mwEAZC0AADItAABkZAAAZC0AACgtAADgDwEAZC0AADwtAADgDwEAZC0AAFAtAAAQzwAAZC0AAEYtAAAsZQAAZC0AACgtAAAI7wAAZC0AABQtAACY6wEAYy0AABQtAADIBAEAYy0AAOwsAAAYAwMAYy0AALosAADkTAEAYi0AALAsAADMBwIAYS0AAGosAACU/wIAYC0AAGosAAAICwIAYC0AALosAAAomQAAYC0AAOwsAAAUmQEAXy0AACgtAAAImQEAXy0AAFAtAADMUAIAXy0AADwtAABQ5gEAXy0AACgtAAC4BAEAXy0AABQtAAAoqAAAXy0AACgtAAA4rgAAXy0AABQtAACcxwAAXy0AAPYsAADQawAAXy0AABQtAADU+AAAXy0AADwtAAAIjQAAXy0AAFAtAABoCgEAXy0AAFotAAAgBgEAXy0AAGQtAAA41wAAXy0AAFotAACAzwAAXy0AAFAtAADgZQAAXy0AADwtAACQTAAAXy0AADwtAADwTAAAXy0AAEYtAADQ8QAAXy0AAFAtAADkHwEAXy0AAFAtAACwYgEAXi0AAB4tAACEkwEAXi0AAAAtAAD4AgEAXi0AAAotAACkVQAAXi0AACgtAADcWQAAXi0AAOwsAAAgZwIAXi0AANgsAAAUXgEAXS0AAM4sAACY/AEAXS0AAM4sAABgnwAAXS0AAOwsAADUsgAAXS0AABQtAAAATwAAXS0AABQtAACYNAEAXS0AAAAtAAAwigAAXS0AAPYsAAB0iwAAXS0AAAAtAAAcjQAAXS0AAB4tAADk4AAAXC0AADwtAACszQAAXC0AADwtAABgyAAAXC0AADItAACAiQAAXC0AAB4tAAA4fwEAXC0AACgtAADw0gAAXC0AADItAAAgagAAXC0AADItAAAECgEAXC0AADItAADM4AAAXC0AADItAABwzwAAXC0AADwtAAAACwIAXC0AADwtAACQsAAAXC0AADwtAAAQpAAAXC0AADwtAABwogEAXC0AADwtAADQTwEAXC0AABQtAAAMnwEAXC0AAPYsAADYvQAAWy0AAPYsAAAsRgEAWy0AAOwsAACoegAAWy0AAOIsAACIDQEAWy0AAPYsAACsBwEAWy0AAOwsAABcTwEAWy0AAOwsAAAAyAAAWy0AAAAtAACgjAAAWi0AAAotAADI+gAAWi0AACgtAABIlAEAWi0AADwtAAB4IQEAWi0AAOwsAABgSAIAWi0AADItAADYMQEAWi0AAEYtAAAAdAMAWi0AAGQtAAAc+wIAWi0AALQtAACkdAMAWy0AAPAtAAC49QMAXC0AAAQuAADYewYAXi0AAPAtAAAA9QUAXi0AAOYtAACgfwMAXy0AAOYtAACwhQIAXy0AANwtAACYUAIAYC0AANItAAAA8wMAYC0AAL4tAAC0kQIAYS0AANItAAB84wIAYi0AAAQuAAAQUgcAYi0AAA4uAAAMFwAAYi0AAA4uAAAAAAAAYi0AAA4uAAAAAAAAZi0AABguAAA4ehEA//////////"
中双引号中的内容复制到RichEdit2.Text解码没有成功
----------------------------------------------
-

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/8/29 11:35:34

3楼：

把引号的内容用
http://app.baidu.com.cn/app/enter?appid=163800
进行base64在线解码也没有成功
----------------------------------------------
-

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/8/29 11:40:42

4楼：

是否可能不是base64编码？？
----------------------------------------------
-

作者：

crystalmoon (crystalmoon)	★☆☆☆☆	-
	盒子活跃会员

2014/8/29 13:32:58

5楼：

可能有预处理过程或变形过，但基本套路应该是Base64
----------------------------------------------
-

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/8/29 14:38:28

6楼：

如何解决？？？？？？？？
----------------------------------------------
-

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/9/1 21:44:36

7楼：

没有人会吗？
----------------------------------------------
-

作者：

asdfzxcv66 (asdfzxcv)	★☆☆☆☆	-
	普通会员

2014/9/5 17:39:29

8楼：

没有人会吗？
----------------------------------------------
-

信息

登陆以后才能回复