Please use FireFox to view this page

Private Sub cmdDecrypt_Click(ByVal eventSender As System.Object, ByVal _ eventArgs As System.EventArgs) Handles cmdDecrypt.Click

        Dim tok As Double

        Dim ptr As Double

        Dim z As Int16

        Dim decSt As String

        For z = 1 To Len(txtEncrypt.Text)

            ptr = InStr(z, txtEncrypt.Text, "+")

            tok = Val(Mid(txtEncrypt.Text, z, ptr))

            decSt = decSt & Chr(Mult(tok, Key(2), Key(3)))

            z = ptr

        Next z

        txtDecrypt.Text = decSt

 End Sub

private void cmdDecrypt_Click(object sender, System.EventArgs e)

{

    double tok;

    int ptr;

    int z;

    string decSt = "";

    for (z = 1;z<txtEncrypt.Text.Length;z++)

    {

            ptr = txtEncrypt.Text.IndexOf("+",z);

            tok = Convert.ToDouble(txtEncrypt.Text.Substring(z, ptr-z));

            decSt += (char)Mult(tok, Key[2], Key[3]);

            z = ptr;

    }

    txtDecrypt.Text = decSt;

}

Public Function Mult(ByVal x As Double, ByVal p As Double, ByVal m As _ Double) As Double

        Dim y As Double

        On Error GoTo error1

        y = 1

        Do While p > 0

            Do While (p / 2) = Int(p / 2)

                System.Windows.Forms.Application.DoEvents()

                x = (x * x) Mod m

                p = p / 2

            Loop

            y = (x * y) Mod m

            p = p - 1

        Loop

        Mult = y

        Exit Function

error1:

        y = 0

End Function

public double Mult(double x,double p,double m)

{

    double y;

    y = 1;

    while (p > 0)

    {

            while ((p / 2) == Convert.ToInt64(p / 2))

            {

                    System.Windows.Forms.Application.DoEvents();

                    x = (x * x) % m;

                    p /= 2;

            }

            y = (x * y) % m;

            p--;

    }

    return y;                      

}