1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Hỏi đáp [Solved] Cách vượt adfly và các trang tương tự bằng _HttpRequest

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi systemerror, 3/3/19.

  1. systemerror

    systemerror Phạm Huy Thiên
    • 3/6

    Tham gia ngày:
    23/2/19
    Bài viết:
    17
    Đã được thích:
    4
    Tình hình hiện có rất nhiều trang đặt link quảng cáo dạng adfly và phải chờ 5s để click IMG bỏ qua quảng cáo..
    làm việc trên library _IE.au3 thì oke rồi nhưng làm sao để vượt qua trên _httprequest :(
    các bạn giúp mình với :(
     
  2. systemerror

    systemerror Phạm Huy Thiên
    • 3/6

    Tham gia ngày:
    23/2/19
    Bài viết:
    17
    Đã được thích:
    4
  3. Huân Hoàng

    Huân Hoàng Super Moderator Thành viên BQT Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    634
    Đã được thích:
    1,113
    Có chia sẻ trên group AutoIt lâu rồi mà nhể ? :-??

    Mã (AutoIt):
    #include <_HttpRequest.au3>

    $link = AdflyBypass('http://adf.ly/a2LCq')
    _HttpRequest_MsgBox(4096, 'Test 1', $link)

    $link = AdflyBypass('http://adf.ly/1FdhGv')
    _HttpRequest_MsgBox(4096, 'Test 2', $link)

    $link = AdflyBypass('http://adf.ly/9i2G6')
    _HttpRequest_MsgBox(4096, 'Test 3', $link)


    Func AdflyBypass($linkADFLY)
        _HttpRequest_SessionSet(90)
        _HttpRequest_ClearSession(90)
        Local $rq1 = _HttpRequest(2, $linkADFLY)
        Local $newHost = StringRegExp($g___LocationRedirect, '(\w+\.\w+)/ad/locked', 1)
        If Not @error Then $rq1 = _HttpRequest(2, StringReplace($linkADFLY, '/adf.ly/', '/' & $newHost[0] & '/-1/', 1))
        Local $ysmm = StringRegExp($rq1, '(?is)var ysmm\h+=.*?[''"](.*?)[''"]', 1)
        If @error Then Return SetError(1, '', '')
        #Region <Giải mã ysmm>
            $ysmm = StringRegExpReplace($ysmm[0], '(.).', '\1') & StringReverse(StringRegExpReplace($ysmm[0], '.(.)', '\1'))
            Local $a_ymss = StringSplit($ysmm, '')
            For $m = 1 To $a_ymss[0]
                If Not StringIsDigit($a_ymss[$m]) Then ContinueLoop
                For $R = $m + 1 To $a_ymss[0]
                    If Not StringIsDigit($a_ymss[$R]) Then ContinueLoop
                    $S = BitXOR($a_ymss[$m], $a_ymss[$R])
                    If $S < 10 Then $a_ymss[$m] = $S
                    $m = $R
                    ExitLoop
                Next
            Next
            Local $linkYMSS = StringTrimRight(StringTrimLeft(BinaryToString(_B64Decode(_ArrayToString($a_ymss, '', 1))), 16), 16)
            ConsoleWrite('!>> LINK :' & $linkYMSS & @CRLF)
        #EndRegion
        If StringInStr($linkYMSS, '/redirecting/', 0, 1) Then
            Local $rq2 = _HttpRequest(2, $linkYMSS)
            Local $linkBypass = StringRegExp($rq2, '<a href="(.*?)">click this link</a>', 1)
            If @error Then Return SetError(2, '', '')
            Return $linkBypass[0]
        Else
            Return $linkYMSS
        EndIf
    EndFunc
     
    [​IMG]
     
  4. systemerror

    systemerror Phạm Huy Thiên
    • 3/6

    Tham gia ngày:
    23/2/19
    Bài viết:
    17
    Đã được thích:
    4
    hihi để em xem thử, dù sao cũng cảm ơn anh ạ :*
     
  5. systemerror

    systemerror Phạm Huy Thiên
    • 3/6

    Tham gia ngày:
    23/2/19
    Bài viết:
    17
    Đã được thích:
    4
  6. Huân Hoàng

    Huân Hoàng Super Moderator Thành viên BQT Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    634
    Đã được thích:
    1,113
    Dễ mà, hàm bypass đã giúp thým nhảy tới trang cần rồi:

    [​IMG]


    [​IMG]


    Thì thým request thêm 1 lần nữa cái link đã bypass được là ra :v

    [​IMG]

    Lưu ý: Phải nạp Referer thì mới ra kết quả đúng nhoé
     
  7. systemerror

    systemerror Phạm Huy Thiên
    • 3/6

    Tham gia ngày:
    23/2/19
    Bài viết:
    17
    Đã được thích:
    4
    hihi thành công rồi anh ưi, e cảm ơn anh nhiều ạ ^^
     

Chia sẻ trang này

Đang tải...