1 Imports System.Security.Cryptography

    2 Imports System.Text

    3 Imports System.IO

    4 

    5 Public Class MD5FileHash

    6     Public Function getMD5HashForFile(ByVal strFileName As String) As String

    7         If (New FileInfo(strFileName).Exists) Then

    8             Dim objSB As New StringBuilder

    9             Dim objMD5 As New MD5CryptoServiceProvider

   10             Dim objFS As New FileStream(strFileName, FileMode.Open)

   11             Dim bHash() As Byte = objMD5.ComputeHash(objFS)

   12             objFS.Close()

   13             For Each bHex As Byte In bHash

   14                 objSB.Append(bHex.ToString("x2"))

   15             Next

   16             Return objSB.ToString

   17         Else

   18             Throw New FileNotFoundException("File " & strFileName & " not Found.")

   19             Return Nothing

   20         End If

   21     End Function

   22 End Class

    1 function getAcrobatVersionsNr(style){ //Parameters Accept: short (Return X.X) | long (Return X.X.X) || Returns is none Acrobat detectet NULL

    2     document.write('<object id="pdfObj" classid="clsid:CA8A9780-280D-11CF-A24D-444553540000" width="0" height="0" style="display:none"></object>');

    3     try{

    4         AcrobatVersion = pdfObj.GetVersions();

    5         if(AcrobatVersion == '')

    6             return null;

    7         else{

    8             var indice = AcrobatVersion.indexOf("AcroForm");

    9             if (indice>-1) {

   10                 indice = indice + 9;

   11                 var AcrobatVersionNrLang = AcrobatVersion.substring(indice, indice + 5)

   12                 indice=AcrobatVersionNrLang.lastIndexOf(".")

   13                 AcrobatVersionNrKurz = AcrobatVersionNrLang.substring(0,indice);

   14                 if (style=='short')

   15                     return AcrobatVersionNrKurz;

   16                 else if (style=='long')

   17                     return AcrobatVersionNrLang;

   18             }

   19             else

   20                 return null

   21 

   22         }

   23     }

   24     catch(ex){return null}

   25 }

    1     Public Function UrlEncode(ByVal strValue As String) As String

    2         Dim strTempreturn As String = ""

    3         For Each strChar As Char In strValue

    4             If InStr(1, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", strChar) = 0 Then

    5                 strTempreturn += "%" & Hex(Asc(strChar))

    6             Else : strTempreturn += strChar

    7             End If

    8         Next

    9         Return strTempreturn

   10     End Function

   11 

   12     Public Function UrlDecode(ByVal strValue As String) As String

   13         Dim strTempreturn As String = ""

   14         Dim arrTempString() As String = strValue.Split("%")

   15         For Each strEntry As String In arrTempString

   16             If strEntry.Length >= 2 Then

   17                 If IsHex(strEntry.Substring(0, 2)) Then

   18                     strTempreturn += Chr("&H" & strEntry.Substring(0, 2))

   19                     strTempreturn += strEntry.Substring(2)

   20                 Else : strTempreturn += "%" & strEntry

   21                 End If

   22             Else : strTempreturn += strEntry

   23             End If

   24         Next

   25         Return strTempreturn

   26     End Function

   27 

   28     Public Function IsHex(ByVal strValue As String) As Boolean

   29         Dim bolTempreturn As Boolean = True

   30         If strValue.Length = 1 Or strValue.Length = 2 Then

   31             For Each strChar As Char In strValue

   32                 If InStr(1, "0123456789ABCDEF", strChar) = 0 Then

   33                     bolTempreturn = False

   34                 End If

   35             Next

   36         Else : bolTempreturn = False

   37         End If

   38         Return bolTempreturn

   39     End Function

    1 dbNull = db.execute("select null").fields(0)

   1     Function ReturnDBNull(ByVal value As Object) As Object

   2         If IsNothing(value) Or value = vbEmpty Or value = vbNull Then

   3             Return DBNull.Value

   4         Else

   5             Return value

   6         End If

   7     End Function

Dim strDaten As String = "TestString"

Clipboard.SetDataObject(strDaten, True)

    1 <script language=javascript>

    2 function setCookie(name, wert){

    3    document.cookie = unescape(name)+"="+unescape(wert);

    4 }

    5 function getCookie(name){

    6    var i=0;  //Suchposition im Cookie

    7    var suche = name+"=";

    8    while (i<document.cookie.length){

    9       if (document.cookie.substring(i, i+suche.length)==suche){

   10         var ende = document.cookie.indexOf(";", i+suche.length);

   11         ende = (ende>-1) ? ende : document.cookie.length;

   12         var cook = document.cookie.substring(i+suche.length, ende);

   13         return unescape(cook);

   14       }

   15       i++;

   16    }

   17    return null;

   18 }

   19 function CheckPopUp(){

   20    setCookie("popupblocker", "enabled");

   21    var F1 = window.open("checkpopup.html","frmPopUpCheck","width=1,height=1,left=0,top=0");

   22    sleep(100);

   23    F1.close();

   24    return (getCookie('popupblocker')=='enabled');  

   25 }

   26 function doCheckPopUp(){

   27    return getCookie('popupblocker');

   28 }

   29 function sleep(numberMillis){

   30     var exitTime = (new Date()).getTime() + numberMillis;

   31     while (true)

   32     {

   33         if ((new Date()).getTime() > exitTime){return;}

   34     }

   35 }

   36 alert(CheckPopUp());

   37 </script>

    1 <script>

    2 function setCookie(name, wert){

    3    document.cookie = unescape(name)+"="+unescape(wert);

    4 }

    5 setCookie("popupblocker", "disabled");

    6 </script>