[Вконтакте] Кто работал с vkontakte API ? требуется помощь - Страница 2

qazwsx · 04.03.2009, 18:26

Код AS1/AS2:

class MD5 {
      public static function encrypt(data: String): String {
        var x:Array = [];
        var k,AA,BB,CC,DD,a,b,c,d;
        var S11:Number=7, S12:Number=12, S13:Number=17, S14:Number=22;
        var S21:Number=5, S22:Number=9 , S23:Number=14, S24:Number=20;
        var S31:Number=4, S32:Number=11, S33:Number=16, S34:Number=23;
        var S41:Number=6, S42:Number=10, S43:Number=15, S44:Number=21;
 
        data = Utf8Encode(data);
 
        x = ConvertToWordArray(data);
 
        a = 0x67452301; b = 0xEFCDAB89; c = 0x98BADCFE; d = 0x10325476;
 
		var len:Number = x.length;
        for (k=0;k<len;k+=16) {
            AA=a; BB=b; CC=c; DD=d;
            a=FF(a,b,c,d,x[k+0], S11,0xD76AA478);
            d=FF(d,a,b,c,x[k+1], S12,0xE8C7B756);
            c=FF(c,d,a,b,x[k+2], S13,0x242070DB);
            b=FF(b,c,d,a,x[k+3], S14,0xC1BDCEEE);
            a=FF(a,b,c,d,x[k+4], S11,0xF57C0FAF);
            d=FF(d,a,b,c,x[k+5], S12,0x4787C62A);
            c=FF(c,d,a,b,x[k+6], S13,0xA8304613);
            b=FF(b,c,d,a,x[k+7], S14,0xFD469501);
            a=FF(a,b,c,d,x[k+8], S11,0x698098D8);
            d=FF(d,a,b,c,x[k+9], S12,0x8B44F7AF);
            c=FF(c,d,a,b,x[k+10],S13,0xFFFF5BB1);
            b=FF(b,c,d,a,x[k+11],S14,0x895CD7BE);
            a=FF(a,b,c,d,x[k+12],S11,0x6B901122);
            d=FF(d,a,b,c,x[k+13],S12,0xFD987193);
            c=FF(c,d,a,b,x[k+14],S13,0xA679438E);
            b=FF(b,c,d,a,x[k+15],S14,0x49B40821);
            a=GG(a,b,c,d,x[k+1], S21,0xF61E2562);
            d=GG(d,a,b,c,x[k+6], S22,0xC040B340);
            c=GG(c,d,a,b,x[k+11],S23,0x265E5A51);
            b=GG(b,c,d,a,x[k+0], S24,0xE9B6C7AA);
            a=GG(a,b,c,d,x[k+5], S21,0xD62F105D);
            d=GG(d,a,b,c,x[k+10],S22,0x2441453);
            c=GG(c,d,a,b,x[k+15],S23,0xD8A1E681);
            b=GG(b,c,d,a,x[k+4], S24,0xE7D3FBC8);
            a=GG(a,b,c,d,x[k+9], S21,0x21E1CDE6);
            d=GG(d,a,b,c,x[k+14],S22,0xC33707D6);
            c=GG(c,d,a,b,x[k+3], S23,0xF4D50D87);
            b=GG(b,c,d,a,x[k+8], S24,0x455A14ED);
            a=GG(a,b,c,d,x[k+13],S21,0xA9E3E905);
            d=GG(d,a,b,c,x[k+2], S22,0xFCEFA3F8);
            c=GG(c,d,a,b,x[k+7], S23,0x676F02D9);
            b=GG(b,c,d,a,x[k+12],S24,0x8D2A4C8A);
            a=HH(a,b,c,d,x[k+5], S31,0xFFFA3942);
            d=HH(d,a,b,c,x[k+8], S32,0x8771F681);
            c=HH(c,d,a,b,x[k+11],S33,0x6D9D6122);
            b=HH(b,c,d,a,x[k+14],S34,0xFDE5380C);
            a=HH(a,b,c,d,x[k+1], S31,0xA4BEEA44);
            d=HH(d,a,b,c,x[k+4], S32,0x4BDECFA9);
            c=HH(c,d,a,b,x[k+7], S33,0xF6BB4B60);
            b=HH(b,c,d,a,x[k+10],S34,0xBEBFBC70);
            a=HH(a,b,c,d,x[k+13],S31,0x289B7EC6);
            d=HH(d,a,b,c,x[k+0], S32,0xEAA127FA);
            c=HH(c,d,a,b,x[k+3], S33,0xD4EF3085);
            b=HH(b,c,d,a,x[k+6], S34,0x4881D05);
            a=HH(a,b,c,d,x[k+9], S31,0xD9D4D039);
            d=HH(d,a,b,c,x[k+12],S32,0xE6DB99E5);
            c=HH(c,d,a,b,x[k+15],S33,0x1FA27CF8);
            b=HH(b,c,d,a,x[k+2], S34,0xC4AC5665);
            a=II(a,b,c,d,x[k+0], S41,0xF4292244);
            d=II(d,a,b,c,x[k+7], S42,0x432AFF97);
            c=II(c,d,a,b,x[k+14],S43,0xAB9423A7);
            b=II(b,c,d,a,x[k+5], S44,0xFC93A039);
            a=II(a,b,c,d,x[k+12],S41,0x655B59C3);
            d=II(d,a,b,c,x[k+3], S42,0x8F0CCC92);
            c=II(c,d,a,b,x[k+10],S43,0xFFEFF47D);
            b=II(b,c,d,a,x[k+1], S44,0x85845DD1);
            a=II(a,b,c,d,x[k+8], S41,0x6FA87E4F);
            d=II(d,a,b,c,x[k+15],S42,0xFE2CE6E0);
            c=II(c,d,a,b,x[k+6], S43,0xA3014314);
            b=II(b,c,d,a,x[k+13],S44,0x4E0811A1);
            a=II(a,b,c,d,x[k+4], S41,0xF7537E82);
            d=II(d,a,b,c,x[k+11],S42,0xBD3AF235);
            c=II(c,d,a,b,x[k+2], S43,0x2AD7D2BB);
            b=II(b,c,d,a,x[k+9], S44,0xEB86D391);
            a=AddUnsigned(a,AA);
            b=AddUnsigned(b,BB);
            c=AddUnsigned(c,CC);
            d=AddUnsigned(d,DD);
        }
 
        var temp = WordToHex(a)+WordToHex(b)+WordToHex(c)+WordToHex(d);
 
        return temp.toLowerCase();
      }
 
      private static function RotateLeft(lValue, iShiftBits) {
          return (lValue<<iShiftBits) | (lValue>>>(32-iShiftBits));
      }
 
      private static function AddUnsigned(lX,lY) {
          var lX4,lY4,lX8,lY8,lResult;
          lX8 = (lX & 0x80000000);
          lY8 = (lY & 0x80000000);
          lX4 = (lX & 0x40000000);
          lY4 = (lY & 0x40000000);
          lResult = (lX & 0x3FFFFFFF)+(lY & 0x3FFFFFFF);
          if (lX4 & lY4) {
              return (lResult ^ 0x80000000 ^ lX8 ^ lY8);
          }
          if (lX4 | lY4) {
              if (lResult & 0x40000000) {
                  return (lResult ^ 0xC0000000 ^ lX8 ^ lY8);
              } else {
                  return (lResult ^ 0x40000000 ^ lX8 ^ lY8);
              }
          } else {
              return (lResult ^ lX8 ^ lY8);
          }
      }
 
      private static function F(x,y,z) { return (x & y) | ((~x) & z); }
      private static function G(x,y,z) { return (x & z) | (y & (~z)); }
      private static function H(x,y,z) { return (x ^ y ^ z); }
      private static function I(x,y,z) { return (y ^ (x | (~z))); }
 
      private static function FF(a,b,c,d,x,s,ac) {
          a = AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac));
          return AddUnsigned(RotateLeft(a, s), b);
      }
 
      private static function GG(a,b,c,d,x,s,ac) {
          a = AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac));
          return AddUnsigned(RotateLeft(a, s), b);
      }
 
      private static function HH(a,b,c,d,x,s,ac) {
          a = AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac));
          return AddUnsigned(RotateLeft(a, s), b);
      }
 
      private static function II(a,b,c,d,x,s,ac) {
          a = AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac));
          return AddUnsigned(RotateLeft(a, s), b);
      }
 
      private static function ConvertToWordArray(string) {
          var lWordCount;
          var lMessageLength = string.length;
          var lNumberOfWords_temp1=lMessageLength + 8;
          var lNumberOfWords_temp2=(lNumberOfWords_temp1-(lNumberOfWords_temp1 % 64))/64;
          var lNumberOfWords = (lNumberOfWords_temp2+1)*16;
          var lWordArray = new Array(lNumberOfWords-1);
          var lBytePosition = 0;
          var lByteCount = 0;
          while ( lByteCount < lMessageLength ) {
              lWordCount = (lByteCount-(lByteCount % 4))/4;
              lBytePosition = (lByteCount % 4)*8;
              lWordArray[lWordCount] = (lWordArray[lWordCount] | (string.charCodeAt(lByteCount)<<lBytePosition));
              lByteCount++;
          }
          lWordCount = (lByteCount-(lByteCount % 4))/4;
          lBytePosition = (lByteCount % 4)*8;
          lWordArray[lWordCount] = lWordArray[lWordCount] | (0x80<<lBytePosition);
          lWordArray[lNumberOfWords-2] = lMessageLength<<3;
          lWordArray[lNumberOfWords-1] = lMessageLength>>>29;
          return lWordArray;
      }
 
      private static function WordToHex(lValue) {
          var WordToHexValue="",WordToHexValue_temp="",lByte,lCount;
          for (lCount = 0;lCount<=3;lCount++) {
              lByte = (lValue>>>(lCount*8)) & 255;
              WordToHexValue_temp = "0" + lByte.toString(16);
              WordToHexValue = WordToHexValue + WordToHexValue_temp.substr(WordToHexValue_temp.length-2,2);
          }
          return WordToHexValue;
      }
 
      private static function Utf8Encode(string) {
 
          var utftext = "";
		  var llen:Number = string.length;
 
          for (var n = 0; n < llen; n++) {
 
              var c = string.charCodeAt(n);
 
              if (c < 128) {
                  utftext += String.fromCharCode(c);
              }
              else if((c > 127) && (c < 2048)) {
                  utftext += String.fromCharCode((c >> 6) | 192);
                  utftext += String.fromCharCode((c & 63) | 128);
              }
              else {
                  utftext += String.fromCharCode((c >> 12) | 224);
                  utftext += String.fromCharCode(((c >> 6) & 63) | 128);
                  utftext += String.fromCharCode((c & 63) | 128);
              }
 
          }
 
          return utftext;
      }
  }

qazwsx · 04.03.2009, 18:28

Код AS1/AS2:

import mx.events.EventDispatcher;
 
/**
 * 	Класс инкапсулирующий работу SetInterval/clearInterval 
 *  работает через событие 
 * */
class utils.Timer extends mx.events.EventDispatcher
{
 
	public static var TICK_EVENT:String = "TICK_EVENT";
	private static var SECONDE:Number = 1000;
 
	var interValId:Number;
 
	var _duration:Number;
 
	public function Timer( duration:Number )
	{
		super();
		this._duration = duration*SECONDE;
		this.interValId = undefined;
	}
 
	public function turnOn():Void
	{
 
		//trace( "tutils.Timer.urnOn " + this.durationMillSec );
 
		if ( enable )
			this.turnOff();
 
		this.interValId = setInterval( Delegate.create( this , onIntervalHandler ) , this.durationMillSec );
 
	}
 
	public function turnOff():Void
	{
 
		this.clearInternalInterval();
	}
 
 
	public function get enable():Boolean
	{
		return interValId != undefined;
	}
 
	public function set enable( val:Boolean ):Void
	{
		if ( val == this.enable )
		{
			return;
		}
 
		if ( val )
			turnOn();
		else
			turnOff();
	}
 
	public function reset():Void
	{
		this.turnOff();
		this.turnOn();
	}
 
	public function get durationMillSec():Number
	{
		return this._duration;
	}
 
	public function set durationMillSec(arg:Number):Void
	{
		this._duration = arg;
		reset();
	}
 
	public function get durationSeconds():Number
	{
		return durationMillSec/SECONDE;
	}
 
	public function set durationSeconds(arg:Number):Void
	{
		this.durationMillSec = arg*SECONDE;
	}
 
 
	private function onIntervalHandler():Void
	{
		this.dispatchEvent( { type:TICK_EVENT } );
	}
 
	private function clearInternalInterval():Void
	{
 
		if ( !this.enable )
			return;
 
		clearInterval( this.interValId );
		this.interValId = undefined;
 
	}
 
 
 
 
 
}

Если ты попросиш пример привести я уничтожу тебя, и всех кто тебя когда либо знал :E

cleptoman · 04.03.2009, 18:30

Azo, вы вменяемый человек?....почитайте сначала описание API а потом пробуйте. наоборот вряд ли получится.

Azo · 04.03.2009, 18:36

qazwsx, спасибо за очередной исходник!!!!
cleptoman, да я вменяемый! но не такой супер флешер чтобы так же как и вы с qazwsx оскорбляете меня, взаимно хохатать над вами!
...
не буду просить примера раз вы сами против. Но выкладывать огромный код тоже не нужно было.

qazwsx · 04.03.2009, 18:53

Это типо так: Если я обычно ничего не понимаю, то не буду ка я читать докуминтацию, лучше сразу попрощу чтобы все за меня сделали.

cleptoman · 04.03.2009, 19:18

Azo, вопрос о вашей вменяемости возник не на пустом месте.). оскорбить вас я свой целью не ставил. но то, что вы каменты игнорите - это факт.

тут дело не в коде , тут дело в том, что вы, не читая описания API пытаетесь для него что-то написать. а в описании ясно и четко написано как формировать запросы, из каких данных и как эти данные получить.

Azo · 04.03.2009, 21:37

вы бы мне лучше сказали как переменные грузить и сохранять ! =))

qazwsx · 04.03.2009, 21:43

Я же и так показал :/

Azo · 04.03.2009, 21:46

Цитата:

Код AS3:

    for (k=0;k<len;k+=16) {
            AA=a; BB=b; CC=c; DD=d;
            a=FF(a,b,c,d,x[k+0], S11,0xD76AA478);
            d=FF(d,a,b,c,x[k+1], S12,0xE8C7B756);
            c=FF(c,d,a,b,x[k+2], S13,0x242070DB);
            b=FF(b,c,d,a,x[k+3], S14,0xC1BDCEEE);
            a=FF(a,b,c,d,x[k+4], S11,0xF57C0FAF);
            d=FF(d,a,b,c,x[k+5], S12,0x4787C62A);
            c=FF(c,d,a,b,x[k+6], S13,0xA8304613);
            b=FF(b,c,d,a,x[k+7], S14,0xFD469501);
            a=FF(a,b,c,d,x[k+8], S11,0x698098D8);
            d=FF(d,a,b,c,x[k+9], S12,0x8B44F7AF);
            c=FF(c,d,a,b,x[k+10],S13,0xFFFF5BB1);
            b=FF(b,c,d,a,x[k+11],S14,0x895CD7BE);
            a=FF(a,b,c,d,x[k+12],S11,0x6B901122);
            d=FF(d,a,b,c,x[k+13],S12,0xFD987193);
            c=FF(c,d,a,b,x[k+14],S13,0xA679438E);
            b=FF(b,c,d,a,x[k+15],S14,0x49B40821);
            a=GG(a,b,c,d,x[k+1], S21,0xF61E2562);
            d=GG(d,a,b,c,x[k+6], S22,0xC040B340);
            c=GG(c,d,a,b,x[k+11],S23,0x265E5A51);
            b=GG(b,c,d,a,x[k+0], S24,0xE9B6C7AA);
            a=GG(a,b,c,d,x[k+5], S21,0xD62F105D);
            d=GG(d,a,b,c,x[k+10],S22,0x2441453);
            c=GG(c,d,a,b,x[k+15],S23,0xD8A1E681);
            b=GG(b,c,d,a,x[k+4], S24,0xE7D3FBC8);
            a=GG(a,b,c,d,x[k+9], S21,0x21E1CDE6);
            d=GG(d,a,b,c,x[k+14],S22,0xC33707D6);
            c=GG(c,d,a,b,x[k+3], S23,0xF4D50D87);
            b=GG(b,c,d,a,x[k+8], S24,0x455A14ED);
            a=GG(a,b,c,d,x[k+13],S21,0xA9E3E905);
            d=GG(d,a,b,c,x[k+2], S22,0xFCEFA3F8);
            c=GG(c,d,a,b,x[k+7], S23,0x676F02D9);
            b=GG(b,c,d,a,x[k+12],S24,0x8D2A4C8A);
            a=HH(a,b,c,d,x[k+5], S31,0xFFFA3942);
            d=HH(d,a,b,c,x[k+8], S32,0x8771F681);
            c=HH(c,d,a,b,x[k+11],S33,0x6D9D6122);
            b=HH(b,c,d,a,x[k+14],S34,0xFDE5380C);
            a=HH(a,b,c,d,x[k+1], S31,0xA4BEEA44);
            d=HH(d,a,b,c,x[k+4], S32,0x4BDECFA9);
            c=HH(c,d,a,b,x[k+7], S33,0xF6BB4B60);

мне бы лучше тот участочек где непосредственно Send или getURL или что там...

qazwsx · 05.03.2009, 00:24

:/ Сижу думаю что же не работает, почему Incorrect signature. Там уже все перерыл за час. Думаю почему же тут не работает? Моё ведь приложение в контакте работает? Оказалось что в эксплорере залогинен под другим ID, а сам проверяю в опере :/... В общем не знаю если ты этого уже не поймешь, не сможешь прочитать документацию и модифицировать код добавляю то что тебе надо, то лучше съешь свои руки.