See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Protected Function ProcessLinks(ByVal txt As String) As String Me.Cursor = Cursors.WaitCursor Dim regx As New Regex("http://([\w+?\.\w+])+([a-zA-Z0-9\~\!\@\#\$\%\^\&\*\(\)_\-\=\+\\\/\?\.\:\;\'\,]*)?", RegexOptions.IgnoreCase) Dim mactches As MatchCollection = regx.Matches(txt) For Each match As Match In mactches txt = match.Value If txt.Contains("sometext.com") Then Dim resp As String = SendRequest("performtest.php?u=" & txt) If resp = "AVAILABLE" Then 'insert into datagridview txt = url status = available. ElseIf resp = "UNAVAILABLE" Then 'same as above, but status unavailable Else 'same as above but status = error End If End If Next Return txt Me.Cursor = Cursors.Default End Function
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!