{"provider_name":"Hatena Blog","height":"190","author_name":"frontline","published":"2004-11-29 10:28:05","image_url":null,"title":" Mod11\u30c1\u30a7\u30c3\u30af\u30c7\u30a3\u30b8\u30c3\u30c8","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.backyrd.net%2Fentry%2F20041129%2F1173749285\" title=\" Mod11\u30c1\u30a7\u30c3\u30af\u30c7\u30a3\u30b8\u30c3\u30c8 - misc.log\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://www.backyrd.net/","provider_url":"https://hatena.blog","version":"1.0","categories":["\u696d\u52d9\u65e5\u8a8c.NET"],"blog_title":"misc.log","author_url":"https://blog.hatena.ne.jp/frontline/","url":"https://www.backyrd.net/entry/20041129/1173749285","description":"\u30c1\u30a7\u30c3\u30af\u30c7\u30a3\u30b8\u30c3\u30c8\u306e\u8a08\u7b97\u3092\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u306e\u3067\u3001\u51fa\u3057\u65b9\u3092\u8abf\u3079\u3066\u66f8\u3044\u3066\u307f\u305f\u3002 Dim SummaryValue As Integer = 0 Dim ResultValue As Integer Dim SourceLength As Integer = Source.Length - 1 Dim ReversedPos As Integer For i As Integer = 0 To SourceLength ReversedPos = SourceLength - i SummaryValue += CInt(Source.Substring(i, 1)) * ((ReversedPos \u2026","type":"rich"}