hvorfor vil den ikke B64 decode

hey har læzt her
http://www.cryptosys.net/encode.html

Det ser ud til at du selv skal comp.. c++ coden..

prøv dem her de virker:
http://www.xbeat.net/vbspeed/c_Base64Dec.htm
http://www.xbeat.net/vbspeed/c_Base64Enc.htm

Det ser ud til at du selv skal comp.. c++ coden..
hvad snakker du om? det vb..


plz hjælp mig lige man! bare skriv hvad der skal stå!!!

compiled c++ under ..\c-source\..

den kode du har er sikkert god nok.. du mangler bare lige dll'en "diCrEnc.dll"

Public Declare Function B64_Encode Lib "diCrEnc.dll" (sInput As String) As String

og der med mener jeg : compiled c++ under ..\c-source\..

kan ikke vb.. er helt ny......... hvorfor skal jeg compile det c++?

fordi du mangler sikkert mangler "diCrEnc.dll" og det er kun selve koden til "diCrEnc.dll" der er i det du downloader..

men det kræver jo sikkert at du har c++ installeret.. jeg kender ikke til c++ så jeg kan ikke engang compiled den for dig..

men prøv dem her.. hvis det da kun er Base64 du er ude efter:
http://www.xbeat.net/vbspeed/c_Base64Dec.htm
http://www.xbeat.net/vbspeed/c_Base64Enc.htm

vil du ikke nok lave det sådan det virker.. ud fra mit scripts

' --------------------------------------- Form1 ---------------------------------------
Option Explicit

Private Sub Command1_Click()
Dim strText As String
Dim strEnc As String
Dim strDec As String

  strText = challenge.Text ' Det som skal codes..
  strEnc = Base64Enc(strText)

  ' strText = Base64Dec(strEnc) ' Den her omvendt..
  response.Text = strEnc
End Sub

Public Function Base64Dec(Base64String As String) As String
' by Nobody, 20011204
  Static Enc() As Byte
  Dim b() As Byte, Out() As Byte, i&, j&, L&, Dec(0 To 255) As Byte
  If (Not Val(Not Enc)) = 0 Then 'Null-Ptr = not initialized
    Enc = StrConv("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/", vbFromUnicode)
  End If
  For i = 0 To 255: Dec(i) = 64: Next
  For i = 0 To 63: Dec(Enc(i)) = i: Next
  L = Len(Base64String): b = StrConv(Base64String, vbFromUnicode)
  ReDim Preserve Out(0 To (L \ 4) * 3 - 1)
  For i = 0 To UBound(b) Step 4
    Out(j) = (Dec(b(i)) * 4) Or (Dec(b(i + 1)) \ 16): j = j + 1
    Out(j) = (Dec(b(i + 1)) And 15) * 16 Or (Dec(b(i + 2)) \ 4): j = j + 1
    Out(j) = (Dec(b(i + 2)) And 3) * 64 Or Dec(b(i + 3)): j = j + 1
  Next i
  If b(L - 2) = 61 Then j = 2 Else If b(L - 1) = 61 Then j = 1 Else j = 0
  ReDim Preserve Out(0 To UBound(Out) - j)
  Base64Dec = StrConv(Out, vbUnicode)
End Function

Public Function Base64Enc(s As String) As String
' by Nobody, 20011204
  Static Enc() As Byte
  Dim b() As Byte, Out() As Byte, i&, j&, L&
  If (Not Val(Not Enc)) = 0 Then 'Null-Ptr = not initialized
    Enc = StrConv("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/", vbFromUnicode)
  End If
  L = Len(s): b = StrConv(s, vbFromUnicode)
  ReDim Preserve b(0 To (UBound(b) \ 3) * 3 + 2)
  ReDim Preserve Out(0 To (UBound(b) \ 3) * 4 + 3)
  For i = 0 To UBound(b) - 1 Step 3
    Out(j) = Enc(b(i) \ 4): j = j + 1
    Out(j) = Enc((b(i + 1) \ 16) Or (b(i) And 3) * 16): j = j + 1
    Out(j) = Enc((b(i + 2) \ 64) Or (b(i + 1) And 15) * 4): j = j + 1
    Out(j) = Enc(b(i + 2) And 63): j = j + 1
  Next i
  For i = 1 To i - L: Out(UBound(Out) - i + 1) = 61: Next i
  Base64Enc = StrConv(Out, vbUnicode)
End Function
' --------------------------------------- Form1 ---------------------------------------

kan du lave den til encode istedet for decode?? plz

altzå!
Eksperten                            => RWtzcGVydGVu
RWtzcGVydGVu                        => Uld0emNHVnlkR1Z1
Uld0emNHVnlkR1Z1                    => VWxkMGVtTkhWbmxrUjFaMQ==
VWxkMGVtTkhWbmxrUjFaMQ==            => Vld4a01HVnRUa2hXYm14clVqRmFNUT09

ved ikke hva der sker man!
men det skal være SÅDAN:

Eksperten => RWtzcGVydGVu
RWtzcGVydGVu =>  Eksperten

Altså hvis man skriver i programmet:
RWtzcGVydGVu skal den udskrive Eksperten
og hvis man fx skriver "WWF3LCBqZWcgaGVkZGVyIGFuZGVycw==" så skal den udskrive:
"jaw jeg hedder anders"

' strText = Base64Dec(strEnc) ' Den her omvendt..