Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Security.Cryptography
 
Public Class clsCrypto
 
    Private Shared Function GetCryptoKey() As String
        Dim vRet As String
        vRet = "jstbhgope"
        Return vRet
    End Function
 
 
    Private Shared Function GetCryptoBytes() As Byte()
        Dim vBytes() As Byte = {&H90, &H34, &H56, &H78, &H12, &HAB, &HCD, &HEF}
        Return vBytes
    End Function
 
 
    Public Shared Function DoEnCrypt(ByVal vStr As String) As String
 
        Dim vRgbKEY() As Byte = {}
        Dim vRgbIV() As Byte = GetCryptoBytes()
 
        Try
            vRgbKEY = System.Text.Encoding.UTF8.GetBytes(Left(GetCryptoKey(), 8))
 
            Dim des As New DESCryptoServiceProvider
            Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(vStr)
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(vRgbKEY, vRgbIV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Return Convert.ToBase64String(ms.ToArray())
 
        Catch ex As Exception
            Return ex.Message
 
        End Try
 
    End Function
 
 
    Public Shared Function DoDeCrypt(ByVal vStr As String) As String
        Dim vRgbKEY() As Byte = {}
        Dim vRgbIV() As Byte = GetCryptoBytes()
        Dim inputByteArray(vStr.Length) As Byte
 
        Try
            vRgbKEY = System.Text.Encoding.UTF8.GetBytes(Left(GetCryptoKey(), 8))
            Dim des As New DESCryptoServiceProvider
            inputByteArray = Convert.FromBase64String(vStr)
            Dim ms As New MemoryStream
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(vRgbKEY, vRgbIV), CryptoStreamMode.Write)
 
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
 
            Return encoding.GetString(ms.ToArray())
 
        Catch ex As Exception
            Return ex.Message
 
        End Try
 
    End Function
 
End Class

 
Reading text from different files format may give directions to most of the challenges faced for building various tools like site search engine. Once you are able to extract texts, coding of very simple logic will be sufficient to design hundreds of web and window based tools. Here in this article, I am using itextsharp.dll apart from .NET and COM libraries. 
 
You need the following binaries. iTextSharp is a free binary. All other are from Miscrosoft and should be used as per Miscrosoft guidelines. If you have MS Office installed in you system you don't need these binaries. You can simply add COM reference of MS Word and MS Excel object libraries.
  
Interop.Excel.dll for .Net 2.0
(download attachment | download from original link)
 
Interop.Word.dll for .Net 2.0
(download attachment | download from original link)
 
Interop.Office.dll for .Net 2.0
(download attachment | download from original link)
 
Interop.VBIDE.dll for .Net 2.0
(download attachment | download from original link)
 
iTextSharp for .Net 2.0
(download attachment | download from original link)
 
'''''Code Begins herefrom 
 
Imports System.IO
Imports System.Data
Imports System.Xml
Imports System.Text
Imports System.Diagnostics
Imports Microsoft.VisualBasic
Imports System.Text.RegularExpressions
Imports iTextSharp.text.pdf
Imports System.Windows.Forms
 
Public Function ReadText_TXT(ByVal faPath As String) As String
    Dim vRet As String = ""
    Dim vStreamReader As StreamReader = File.OpenText(faPath)
    Try
        vRet = vStreamReader.ReadToEnd()
        vStreamReader.Close()
    Catch ex As Exception
        vRet = ""
    End Try
    Return vRet
End Function
 
Public Function ReadText_DOC(ByVal faPath As String) As String
    Dim vRet As String = ""
    Dim vRTB As New RichTextBox
    Dim vWD As New Word.Application
    vWD.Documents.Open(faPath)
    vWD.Selection.WholeStory()
    vWD.Selection.Copy()
    vRTB.Paste()
    vRet = vRTB.Text
    vWD.Quit()
    DoGarbageCollection(vWD)
    Return vRet
End Function
 
Public Function ReadText_XLS(ByVal faPath As String) As String
    Dim vRet As String = ""
    Dim vRTB As New RichTextBox
    Dim vXL As New Excel.Application
    Dim vWB As Excel.Workbook = Nothing
    Dim vWS As Excel.Worksheet = Nothing
    Dim vUR As Excel.Range = Nothing
    Dim vCnt As Integer
    Dim vCtr As Integer
    Dim vRow As Integer
    Dim vCol As Integer
    Dim vRows As Integer
    Dim vCols As Integer
    vWB = vXL.Workbooks.Open(faPath)
    vXL.Calculation = Excel.XlCalculation.xlCalculationManual
    vXL.AlertBeforeOverwriting = False
    vCnt = vWB.Worksheets.Count
 
    For vCtr = 1 To vCnt
        vWS = vWB.Worksheets(vCtr)
        vUR = vWS.UsedRange
        vRows = vUR.Rows.Count
        vCols = vUR.Columns.Count
        For vRow = 1 To vRows
            For vCol = 1 To vCols
                vRet = vRet & CType(vUR.Cells(vRow, vCol), Excel.Range).Value & " "
            Next vCol
        Next vRow
    Next
 
    vWB.Close(False)
    DoGarbageCollection(vWB)
    vXL.Quit()
    DoGarbageCollection(vXL)
 
    Return vRet
End Function
 
Public Function ReadText_PDF(ByVal faPath As String, Optional ByVal faFromPageNum As Integer = 0, _
    Optional ByVal faUptoPageNum As Integer = 0) As String
    Dim sb As New System.Text.StringBuilder()
    Try
        Dim reader As New PdfReader(faPath)
        Dim pageBytes() As Byte = Nothing
        Dim token As PRTokeniser = Nothing
        Dim tknType As Integer = -1
        Dim tknValue As String = String.Empty
        If faFromPageNum = 0 Then
            faFromPageNum = 1
        End If
        If faUptoPageNum = 0 Then
            faUptoPageNum = reader.NumberOfPages
        End If
        If faFromPageNum > faUptoPageNum Then
            Throw New ApplicationException("Err: faFromPageNum > faUptoPageNum")
        End If
 
        For i As Integer = faFromPageNum To faUptoPageNum Step 1
            pageBytes = reader.GetPageContent(i)
            If Not IsNothing(pageBytes) Then
                token = New PRTokeniser(pageBytes)
                While token.NextToken()
                    tknType = token.TokenType()
                    tknValue = token.StringValue
                    If tknType = PRTokeniser.TK_STRING Then
                        sb.Append(token.StringValue)
                    ElseIf tknType = 1 AndAlso tknValue = "-600" Then
                        sb.Append(" ")
                    ElseIf tknType = 10 AndAlso tknValue = "TJ" Then
                        sb.Append(" ")
                    End If
                    Application.DoEvents()
                End While
            End If
        Next i
        sb = New StringBuilder(sb.ToString)
    Catch ex As Exception
        Return String.Empty
 
    End Try
    Return sb.ToString()
End Function
 
Public Function ReadText_WEB(ByVal faUrl As String) As String
    Dim vRet As String = ""
    Try
        Dim vSNWebClient As System.Net.WebClient
        Dim vUTF8Encoding As UTF8Encoding
        vSNWebClient = New System.Net.WebClient()
        vUTF8Encoding = New UTF8Encoding()
        vRet = vUTF8Encoding.GetString(vSNWebClient.DownloadData(faUrl))
    Catch ex As Exception
        vRet = ""
    End Try
    Return ReadText_HTM(vRet)
End Function
 
Private Sub DoGarbageCollection(ByVal faObj As Object)
    Try
        Runtime.InteropServices.Marshal.ReleaseComObject(faObj)
    Catch
    Finally
        faObj = Nothing
    End Try
End Sub
 
Private Function ReadText_HTM(ByVal faContent As String) As String
    Dim vRet As String = faContent
    Try
        Dim vRegEx As Regex
        vRegEx = New Regex("", RegexOptions.IgnoreCase)
        vRet = Regex.Replace(vRet, "<(select|option|script|style|title)(.*?)>((.|\n)*?)</(select|option|script|style|title)>", " ", RegexOptions.IgnoreCase)
        vRet = Regex.Replace(vRet, "&(nbsp|quot|copy);", "")
        vRet = Regex.Replace(vRet, "<([\s\S])+?>", " ", RegexOptions.IgnoreCase)
        vRet = Regex.Replace(vRet, "\W", " ")
    Catch ex As Exception
        vRet = ""
    End Try
    Return Trim(vRet)
End Function

 
Browser detection is one of the most common scripting task that we face. The variety of different strategies in use for detecting browsers is unlimited. Here in this article I am not going to discuss it in details. Rather I am giving the following example that will help you to identified the HTML object independent of browsers. Instead of using the method getElementById in your javascript code you use getObjectById("elementname"). Please Find the following code
 
function getObjectByID(faObj){
    if (window.document[faObj])    {
        return window.document[faObj];
    }
    if (document.embeds[faObj]){
        return document.embeds[faObj];
    }
    if (document.getElementById(faObj)){
        return document.getElementById(faObj);
    }
}
 

 
To embed media into web pages requires a player and a source file that is to be played. Incase of live multi-media resources it has to come through web-services. The code given here is streaming the media from punjabijunction.com and the plug-in is from microsoft.com. To listen the audios just click the play button if you have disabled the autostart features. It will start playing music from Radio City Live. And if you want the same at your web pages put this code into you HTML code.
 
<object id="MediaPlayer"
codeBase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,7,1112"
type="application/x-oleobject" height="50" standby="Loading Windows Media Player components..."
width="270" classid="CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95">
    <param NAME="filename" VALUE="http://www.punjabijunction.com/ch_radiocity/RadioCity.asx">
    <param NAME="autoStart" VALUE="false">
    <param NAME="TransparentAtStart" VALUE="false">
    <param NAME="AnimationatStart" VALUE="false">
    <param NAME="ShowStatusBar" VALUE="true">
    <param NAME="ShowControls" VALUE="true">
    <param NAME="autoSize" VALUE="false">
    <param NAME="displaySize" VALUE="false">
    <param NAME="ShowAudioControls" VALUE="true">
    <param NAME="ShowPositionControls" VALUE="false">
    <embed type="application/x-mplayer2"
        pluginspage="http://www.microsoft.com/Windows/Downloads/Contents/Products/MediaPlayer/"
        src="http://www.punjabijunction.com/ch_radiocity/RadioCity.asx"
        width="270" height="50" transparentatstart="0" autostart="1" animationatstart="0"
        showcontrols="true" showaudiocontrols="1" showpositioncontrols="0" autosize="0"
        showstatusbar="1" displaysize="false"></embed>
</object> 
 
»»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com