1 Imports System.Security.Cryptography

    2 Imports System.Text

    3 Imports System.IO

    4 

    5 PublicClass MD5FileHash

    6     PublicFunction getMD5HashForFile(ByVal strFileName AsString) AsString

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

    8             Dim objSB AsNew StringBuilder

    9             Dim objMD5 AsNew MD5CryptoServiceProvider

   10             Dim objFS AsNew FileStream(strFileName, FileMode.Open)

   11             Dim bHash() AsByte = objMD5.ComputeHash(objFS)

   12             objFS.Close()

   13             ForEach bHex AsByteIn bHash

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

   15             Next

   16             Return objSB.ToString

   17         Else

   18             ThrowNew FileNotFoundException("File " & strFileName & " not Found.")

   19             ReturnNothing

   20         EndIf

   21     EndFunction

   22 EndClass

    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             returnnull;

    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                 elseif (style=='long')

   17                     return AcrobatVersionNrLang;

   18             }

   19             else

   20                 returnnull

   21 

   22         }

   23     }

   24     catch(ex){returnnull}

   25 }

    1     PublicFunction UrlEncode(ByVal strValue AsString) AsString

    2         Dim strTempreturn AsString = ""

    3         ForEach strChar AsCharIn strValue

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

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

    6             Else : strTempreturn += strChar

    7             EndIf

    8         Next

    9         Return strTempreturn

   10     EndFunction

   11 

   12     PublicFunction UrlDecode(ByVal strValue AsString) AsString

   13         Dim strTempreturn AsString = ""

   14         Dim arrTempString() AsString = strValue.Split("%")

   15         ForEach strEntry AsStringIn 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                 EndIf

   22             Else : strTempreturn += strEntry

   23             EndIf

   24         Next

   25         Return strTempreturn

   26     EndFunction

   27 

   28     PublicFunction IsHex(ByVal strValue AsString) AsBoolean

   29         Dim bolTempreturn AsBoolean = True

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

   31             ForEach strChar AsCharIn strValue

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

   33                     bolTempreturn = False

   34                 EndIf

   35             Next

   36         Else : bolTempreturn = False

   37         EndIf

   38         Return bolTempreturn

   39     EndFunction

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

   1     Function ReturnDBNull(ByVal value AsObject) AsObject

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

   3             Return DBNull.Value

   4         Else

   5             Return value

   6         EndIf

   7     EndFunction

Dim strDaten AsString = "TestString"

Clipboard.SetDataObject(strDaten, True)

    1 <scriptlanguage=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    returnnull;

   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>