Nemme point

Hvorfor skifte fra ASP til ASP.NET hvis du alligevel koder gammeldags? .NET har en hel membershipprovider der kan håndtere login - og har du for meget eksisterende så du gerne vil undgå den så benyt i det mindste .NET kontroller til din input-felter.

Det er blot en funktion til at generere en krypteret streng, som jeg kan dekryptere i modtagerenden. Jeg har brugt koden tidligere i en asp-fil, men skal altså bruge den nu på et eksternt asp.net-site. Jeg kender fint til asp.net's login-muligheder.

Hvad siger du Soze ? Det er måske ikke så simpelt endda ?

jeg vil sige det samme som før - benyt .net når du arbejder i .net, dvs (uden særlig meget VB i fingrene) fx;

<asp:TextBox ID="tbSomeId" runat="server"></asp:TextBox>

tbSomeId.Text = Me.EnDeCrypt(DateTime.Now, pwd)

Prøv og kig på følgende lille eksempel.

rc4.aspx
--------

<%@ Page Language="VB" CodeFile="rc4.aspx.vb" Inherits="E.RC4" %>
Output from encryption: <asp:label id="outtxt" runat="server"/>
<hr/>
<form runat="server">
Input for encryption: <asp:TextBox id="intxt" runat="server"/>
<br/>
<asp:Button text="Encrypt" onclick="Encrypt_Click" runat="server"/>
</form>

rc4.aspx.vb
-----------

Imports System.Web.UI.WebControls

NameSpace E
    Public Class RC4
    Inherits Page
        Protected Sub Encrypt_Click(src As Object, e As EventArgs)
            outtxt.Text = EnDeCrypt(intxt.Text, "hemmeligt")
            intxt.Text = ""
        End Sub
        Dim sbox(255) As Integer
        Dim key(255) As Integer
        Private Sub RC4Initialize(strPwd As String)
            Dim tempSwap As Integer
            Dim a As Integer
            Dim b As Integer
            Dim intLength as Integer
            intLength= Len(strPwd)
            For a = 0 To 255
                key(a) = Asc(Mid(strPwd, (a Mod intLength) + 1, 1))
                sbox(a) = a
            Next
            b = 0
            For a = 0 To 255
                b = (b + sbox(a) + key(a)) Mod 256
                tempSwap = sbox(a)
                sbox(a) = sbox(b)
                sbox(b) = tempSwap
            Next
        End Sub
        Function EnDeCrypt(plaintxt As String, psw As String) As String
            Dim temp As Integer
            Dim a As Integer
            Dim i As Integer
            Dim j As Integer
            Dim k As Integer
            Dim cipherby As Integer
            Dim cipher As String
            cipher = ""
            i = 0
            j = 0
            Call RC4Initialize(psw)
            For a = 1 To Len(plaintxt)
                i = (i + 1) Mod 256
                j = (j + sbox(i)) Mod 256
                temp = sbox(i)
                sbox(i) = sbox(j)
                sbox(j) = temp
                k = sbox((sbox(i) + sbox(j)) Mod 256)
                cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
                cipher = cipher & cipherby.ToString("X2")
            Next
            EnDeCrypt = cipher
      End Function
    End Class
End NameSpace

Hej arne_v

Tak, det ser ud til at virke fint - dog er den genererede krypterede streng ikke mage til "asp-scriptet".

Eksempel fra asp.net:89A6766241C377272D929D75A4A4D957EF205E

Eksempel fra asp: %89%A6vbA%C3w%27%2D%92%9Du%A4%A4%D9V%EF%21U

Men hul i det - jeg skifter scriptet i modtager-enden med "det nye".

Mange tak for hjælpen - læg et svar.

Er det ikke bare forskellen på hex encoding og URL encoding ?

Jeg kunne godt lave det om til URL encoding.

Og et svar fra mig.

Men hele brug af web kontrol problematikken havde keysersoze jo allerede dækket inden jeg kom ind i billedet.

Tid at få afsluttet her?