短縮URL展開が無効になっている場合にbctiny.comのプレビューができないバグを修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@836 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/RadixConvert.vb b/Tween/RadixConvert.vb
index d0d07bf..280ddad 100644 (file)
--- a/Tween/RadixConvert.vb
+++ b/Tween/RadixConvert.vb
@@ -416,7 +416,7 @@ Public Class RadixConvert
         ElseIf ascNum >= Asc("A") AndAlso ascNum <= Asc("Z") Then
             Return ascNum - Asc("A") + 10
         ElseIf ascNum >= Asc("a") AndAlso ascNum <= Asc("z") Then
-            Return Asc(ascNum.ToString) - Asc("a") + 10
+            Return ascNum - Asc("a") + 10
         Else
             Return -1
         End If

diff --git a/Tween/Thumbnail.vb b/Tween/Thumbnail.vb
index add9f2e..79debb1 100644 (file)
--- a/Tween/Thumbnail.vb
+++ b/Tween/Thumbnail.vb
@@ -745,7 +745,7 @@ Public Class Thumbnail
         mc = Regex.Match(args.url, "^http://bctiny\.com/p(\w+)$", RegexOptions.IgnoreCase)
         If mc.Success Then
             Try
-                args.imglist.Add(New KeyValuePair(Of String, String)(args.url, "http://images.bcphotoshare.com/storages/" + RadixConvert.ToInt32(mc.Result("${1}"), 32).ToString + "/thumb180.jpg"))
+                args.imglist.Add(New KeyValuePair(Of String, String)(args.url, "http://images.bcphotoshare.com/storages/" + RadixConvert.ToInt32(mc.Result("${1}"), 36).ToString + "/thumb180.jpg"))
                 Return True
             Catch ex As ArgumentOutOfRangeException
             End Try