Please use FireFox to view this page

private double Euler(double E3,double PHI3)

{

    double v3, v1, u2, u1, u3, v2, q;

    double vv, t2, t1, t3, uu, inverse;

    u1 = 1;

    u2 = 0;

    u3 = PHI3;

    v1 = 0;

    v2 = 1;

    v3 = E3;

    while (v3 != 0)

    {

            q = Convert.ToInt64(u3 / v3);

            t1 = u1 - q * v1;

            t2 = u2 - q * v2;

            t3 = u3 - q * v3;

            u1 = v1;

            u2 = v2;

            u3 = v3;

            v1 = t1;

            v2 = t2;

            v3 = t3;

    }

    uu = u1;

    vv = u2;

    if (vv < 0)

    {

            inverse = vv + PHI3;

    }

    else

    {

            inverse = vv;

    }

     return inverse;

}

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

        Dim i As Double

        Dim encSt As String

        For i = 1 To Len(txtPlain.Text)

            encSt = encSt & Mult(CInt(Asc(Mid(txtPlain.Text, i, 1))) _

                    , Key(1), Key(3)) & "+"

        Next i

        txtEncrypt.Text = encSt

End Sub

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

{

    int i;

    string encSt = "";

    byte[] encodedBytes =

           System.Text.Encoding.ASCII.GetBytes(txtPlain.Text);

    for (i=0;i<txtPlain.Text.Length;i++)

    {

    encSt += Mult(Convert.ToDouble(encodedBytes[i]), Key[1], Key[3]) + "+";

    }

    txtEncrypt.Text = encSt;

}