12
返回列表 上一主題 發帖

[發問] 圖形驗證(Captcha) 破解?

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-5-10 22:22 | 只看該作者

[發問] 圖形驗證(Captcha) 破解?

證交所開放下載csv檔了~  http://bsr.twse.com.tw/bshtm/
想改寫之前的下載方式
本來是利用web查詢在另存成csv檔
但是效率很差

在證交所網站中
下載前必須輸入圖形驗證
而且每次會不同
想知道有沒有辦法在VBA上破解?
目前的想法有二
一是使用圖形辨識(OCR)
就網頁上的圖看起來還算工整
只是這麼做效率可能也不會太好(?) 還沒試過
第二個想法是利用網頁cookie
我猜輸入驗證碼之後會得到一組cookie作為鑰匙
利用VBA生成/保留那組cookie說不定可以一勞永逸?
不知道有沒有解法 感謝!!
收藏 分享

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2013-5-16 15:44 | 只看該作者
證交所開放下載csv檔了~  http://bsr.twse.com.tw/bshtm/
想改寫之前的下載方式
本來是利用web查詢在另存 ...
lalalada 發表於 2013-5-10 22:22



    1.如果用OCR 辨識  會有幾個問題產生
      1-1 完整性 <英文、數字、文字>
      2-2 可辨識度 < 如 圖內 X、Y點，或 其他>

     2.如果用Cookie ，那 可以跟妳說..  基本上 此方法幾乎不可能...
         原因為何？ 除非，妳有該網站所有圖形驗證的圖資 或  妳能辨識 圖形，否則 COOKIE 不會是固定的
         如果 今天A網站 的 圖形驗證的圖資有100種 ， 基本上 就有可能有 100種COOKIE ...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
3#
發表於 2013-5-19 12:27 | 只看該作者
回復 2# mark15jill

感謝回覆!
那如果想使用OCR的話
在VBA內該怎麼引用呢?

辨識的話因為剛好網站只採用數字
而且底色單純也沒有太多變形處理
OCR辨識應該是可行的
由於少掉了對圖形的處理
說不定還是能比原本的作法快(?)

其實原本的作法除了繞路之外
速度慢的其中一個原因是因為它會擋大量連續連線要求
每五次必須等5秒左右

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
4#
發表於 2013-5-20 11:49 | 只看該作者
回復 3# lalalada


    抱歉 關於這部份小弟就無深入研究

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
5#
發表於 2013-5-20 14:40 | 只看該作者
回復 4# mark15jill

還是很感謝你願意分享:)
最近比較忙
等我找到方法再po上來

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
6#
發表於 2013-9-27 22:28 | 只看該作者
本帖最後由 joey0415 於 2013-9-27 22:29 編輯

回復 5# lalalada


    圖形部份，excel home藍天大有，不過我還不會用
http://club.excelhome.net/home.php?mod=space&uid=1666515&do=thread&view=me&from=space

每日券商我是下載csv

上市：每日約30分(網頁轉csv)
上櫃：每日5分(csv)

轉進資料庫另計

以上為vba

聽說用python可以多線下載會更快，不過我沒有用！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-9-28 16:40 | 只看該作者
回復 5# lalalada
試試看
  1. Option Explicit
  2. Sub 證交所_買賣交易日報表()
  3.     Dim Stock_NO As String, Sh As Worksheet, URL As String, WB As Workbook
  4.     Do
  5.       Stock_NO = InputBox("股票號碼")
  6.       If Stock_NO = "" Then Exit Sub
  7.     Loop Until Len(Stock_NO) >= 4
  8.     Set Sh = ActiveWorkbook.Sheets.Add
  9.     Application.DisplayAlerts = False
  10.     On Error GoTo Er
  11.     Sh.Name = Stock_NO
  12.     Application.StatusBar = "下載資料中.... "
  13.     Application.ScreenUpdating = False
  14.     URL = "http://bsr.twse.com.tw/bshtm/bsContent.aspx?StartNumber=" & Stock_NO & "&FocusIndex=All_" & 報表頁數(Stock_NO)
  15.     Set WB = Workbooks.Open(URL)
  16.     With WB.Sheets(1)
  17.         If .UsedRange.Count = 1 Then GoTo xOUT         '股票沒有資料
  18.         .UsedRange.Columns("A:Q").ClearFormats
  19.         .UsedRange.Columns("B:H").Delete Shift:=xlToLeft
  20.         .UsedRange.Columns("B:B").SpecialCells(xlCellTypeBlanks).Offset(, -1).Delete xlShiftUp
  21.         .UsedRange.Columns("B:E").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
  22.         .UsedRange.Columns("F:J").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
  23.         .UsedRange.Columns("F:J").Cut .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
  24.         .Rows("1:2").Delete
  25.         With .UsedRange
  26.             .Value = .Value
  27.             .Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes
  28.             .Offset(3).Replace "序", "=XXX", xlWhole
  29.             .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
  30.         End With
  31.         .UsedRange.Copy Sh.[A1]
  32.         Sh.UsedRange.EntireColumn.AutoFit
  33.     End With
  34.     WB.Close False
  35.     Application.ScreenUpdating = True
  36.     Application.StatusBar = False
  37.     Exit Sub
  38. Er:
  39.     Sheets(Stock_NO).Delete
  40.     Resume
  41. xOUT:
  42.     WB.Close False
  43.     Sheets(Stock_NO).Delete
  44.     MsgBox "沒有股票 " & Stock_NO
  45.     Application.StatusBar = False
  46.     Application.ScreenUpdating = True
  47. End Sub
  48. Private Function 報表頁數(Sstock_N0 As String) As String
  49.     Dim element As Object
  50.     With CreateObject("InternetExplorer.Application")
  51.         .Navigate "http://bsr.twse.com.tw/bshtm/bsMenu.aspx"
  52.          Do While .Busy Or .ReadyState <> 4
  53.             DoEvents
  54.         Loop
  55.         .Document.getElementsByName("txtTASKNO")(0).Value = Sstock_N0
  56.         .Document.getElementsByName("btnOK")(0).Click
  57.          Do While .Busy Or .ReadyState <> 4
  58.             DoEvents
  59.         Loop
  60.        報表頁數 = .Document.getElementsByName("sp_ListCount")(0).innertext
  61.        .Quit
  62.     End With
  63. End Function
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
8#
發表於 2013-9-28 18:41 | 只看該作者
回復 7# GBKEE


    關於圖形驗證Captcha的方式,這是joey0415提供得[參考]來源
看不懂^_^!!          但跑驗證碼是正確的
  1. Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
  2. Public Declare Function CloseClipboard Lib "user32" () As Long
  3. Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
  4. Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
  5. Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long
  6. Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
  7. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
  8. '剪貼版資料格式定義
  9. Private Const CF_DIB = 8

  11. Sub 驗證碼識別()
  12.     Dim a(1 To 4)
  13.     Dim img       '（驗證碼）圖片
  14.     Dim CtrlRange '非文本物件集合
  15.     Dim bytClipData()  As Byte '定義位元組陣列
  16.     Dim arr(0 To 1260)
  17.     Dim ts As Integer
  18.     On Error Resume Next
  19.     Set Regedit_XG = CreateObject("WScript.Shell")              '創建一個空的VBS"殼"
  20.     Jz = Regedit_XG.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407")                   '讀取註冊表"安全設置-Internet區域"中的"允許對剪貼板進行編程訪問"設置(3＝禁用、0＝啟用、1＝提示)原始值
  21.     Regedit_XG.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407", "0", "REG_DWORD"      '修改註冊表"安全設置-Internet區域"中的"允許對剪貼板進行編程訪問"設置(3＝禁用、0＝啟用、1＝提示)，使系統默認為"允許訪問剪貼板"
  22.     With CreateObject("InternetExplorer.application")           '創建一個空的ie
  23.         .Visible = True                                         '讓ie可見
  24.         .Navigate "http://119.145.135.38/fscx/web/loginForm.do" '導航到http://119.145.135.38/fscx/web/loginForm.do
  25.         Do Until .ReadyState = 4               '等待ie完畢載入
  26.             DoEvents
  27.         Loop
  28.         Set img = .Document.All.tags("img")(0) '指定（驗證碼）目標圖片
  29.         Set CtrlRange = .Document.body.createControlRange()  '創建非文本物件 ControlRange 集合
  30.         CtrlRange.Add img                      '向非文本物件 ControlRange 集合中添加 img 物件
  31.         CtrlRange.execCommand "Copy", True     '從 ControlRange 集合中copy img 物件（圖片）到剪貼板
  32.         Dim hMem As Long, lpData As Long
  33.         OpenClipboard 0&                       '打開粘貼板
  34.         hMem = GetClipboardData(8)             '獲得粘貼板資料，指定格式為：CF_DIB = 8
  35.         If CBool(hMem) Then
  36.             lpData = GlobalLock(hMem)          '鎖定記憶體物件hMen
  37.             lClipSize = GlobalSize(hMem)       '獲得粘貼板資料位元組數
  38.             If lpData <> 0 And lClipSize > 0 Then
  39.                 ReDim bytClipData(0 To lClipSize - 1) As Byte      '重新定義位元組陣列大小
  40.                 CopyMemory bytClipData(0), ByVal lpData, lClipSize '粘貼板轉化成位元組陣列
  41.             End If
  42.             GlobalUnlock hMem                  '解除鎖定記憶體物件hMen
  43.         End If
  44.         CloseClipboard                         '關閉粘貼板
  45.         For i = 1 To 1260                      '歸一化處理
  46.             ts = (Val(bytClipData((i - 1) * 3 + 40)) + Val(bytClipData((i - 1) * 3 + 41)) + Val(bytClipData((i - 1) * 3 + 42))) / 3 '40是圖片開始位元組
  47.             If ts > 150 Then
  48.                 ts = 0
  49.             Else
  50.                 ts = 1
  51.             End If
  52.             arr(i) = ts
  53.         Next i
  54.         For i = 1 To 4
  55.             a(i) = 0                                                          '0
  56.             If arr(13 * 60 + 8 + (i - 1) * 14) = 1 And arr(14 * 60 + 8 + (i - 1) * 14) = 1 Then a(i) = 1: GoTo 1 '16位色，所以乘以"3"RGB各占一位元組，60是寬，14是字間距，
  57.             If arr(4 * 60 + 6 + (i - 1) * 14) = 1 Then a(i) = 2: GoTo 1       '2
  58.             If arr(16 * 60 + 11 + (i - 1) * 14) = 0 Then a(i) = 3: GoTo 1     '3
  59.             If arr(7 * 60 + 5 + (i - 1) * 14) = 1 Then a(i) = 4: GoTo 1       '4
  60.             If arr(12 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 5: GoTo 1      '5
  61.             If arr(9 * 60 + 8 + (i - 1) * 14) = 1 And arr(11 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 6: GoTo 1  '6
  62.             If arr(16 * 60 + 13 + (i - 1) * 14) = 1 Then a(i) = 7: GoTo 1     '7
  63.             If arr(10 * 60 + 8 + (i - 1) * 14) = 1 And arr(11 * 60 + 8 + (i - 1) * 14) = 1 Then a(i) = 8: GoTo 1 '8
  64.             If arr(9 * 60 + 9 + (i - 1) * 14) = 1 Then a(i) = 9               '9
  65. 1:
  66.         Next i
  67.         Cells(1, 1) = a(1) & a(2) & a(3) & a(4)             '識別後的驗證碼
  68.         .Document.All.tags("INPUT")(0).Value = "1234567890" '填寫登錄名
  69.         .Document.All.tags("INPUT")(1).Value = "0987654321" '填寫密  碼
  70.         .Document.All.tags("INPUT")(2).Value = Cells(1, 1)  '填寫驗證碼
  71.         .Document.All.tags("img")(1).Click                  '點擊"登錄"按鈕
  72.         '.Quit                     '關閉ie
  73.         'MsgBox "OK"
  74.     End With
  75.     Regedit_XG.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407", Jz, "REG_DWORD"      '恢復註冊表"安全設置-Internet區域"中的"允許對剪貼板進行編程訪問"設置(3＝禁用、0＝啟用、1＝提示)原始值
  76.     Set Regedit_XG = Nothing      '釋放VBS"殼"
  77. End Sub
複製代碼

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
9#
發表於 2013-9-28 18:59 | 只看該作者
回復 7# GBKEE


    對不起!忘了附上URL
下載CSV相關位址:
(1)不知道用的上?!
http://bsr.twse.com.tw/bshtm/bsMenu.aspx?__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKLTQzNzI3ODE3MQ9kFgICAQ9kFg4CBQ8WAh4JaW5uZXJodG1sBQoyMDEzLzA5LzI3ZAIGDxYCHwAFCDIwMTMwOTI3ZAIIDw8WBh4JRm9udF9Cb2xkZx4EXyFTQgKEEB4JRm9yZUNvbG9yCj1kZAIKD2QWAgIBDw9kFgIeB09uQ2xpY2sFHGphdmFzY3JpcHQ6YnV0Q2xlYXJfQ2xpY2soKTtkAgwPDxYGHwFoHwIChBAfAwpHZGQCDg8PFgIeB1Zpc2libGVoZGQCEA8PFgYfAWgfAgKEEB8DCkdkZGSiKU%2Fti2BvI3vsAvp%2BUySKAAAAAA%3D%3D&__EVENTVALIDATION=%2FwEWCQKGnJS3DwLjpuXcAwKN4Ij0CwLB5ZfoCQLjk6TKBwKY8en5CwLdkpmPAQL6n7vzCwLAhrvLBeRfGpOZWTxdVZsdlLXS6sgAAAAA&HiddenField_spDate=&HiddenField_page=PAGE_DownloadBS&txtTASKNO=%E8%AB%8B%E8%BC%B8%E5%85%A5%E8%82%A1%E7%A5%A8%E4%BB%A3%E7%A2%BC&hidTASKNO=&Button_DownloadBS=%3C%E4%B8%8B%E8%BC%89+CSV%3E

(2)Download
http://bsr.twse.com.tw/bshtm/bsDownload.aspx?__VIEWSTATE=%2FwEPDwUJNDA4NDA2OTYwZGSrd3Tlksjh9VIjA2KPwnxSAAAAAA%3D%3D&__EVENTVALIDATION=%2FwEWBgLgmuzfAwLPiaeCCQLNkNdZAs%2Bk8%2FwMAp%2BC7OYNAsyPx6EHbi4KW9bFIDAKFtSJoAwOXQAAAAA%3D&HiddenField_Download=&TextBox_Stkno=股票代號&TextBox_VerifyCode=驗證碼&Button_Download=%E4%B8%8B%E8%BC%89

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
10#
發表於 2013-9-28 22:33 | 只看該作者
回復 9# HSIEN6001

不知HSIEN6001大

可以改成驗證台灣的嗎？

我自己試是不成功的，讀台灣驗證碼部份

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
12
返回列表 上一主題