Avatar billede Slettet bruger
28. november 2005 - 18:49 Der er 7 kommentarer og
1 løsning

PWD code til ftp

Hej jeg sider og prøver at kode en ftp server men søger nu lidt kode hjælp.. jeg har ikke kun finde alle pwd. og vil høre om der er en der kender en sted man kan finde hjælp eller liste helst på dansk..
Avatar billede driis Nybegynder
28. november 2005 - 19:08 #1
Her skulle gerne stå alt du har brug for:
http://www.w3.org/Protocols/rfc959/
Avatar billede Slettet bruger
28. november 2005 - 19:20 #2
syndes ikke lige jeg kan finde det jeg søger.. som er

REST 100 Jeg ved ikke lige hvad jeg skal sende retur til clint..
Avatar billede driis Nybegynder
28. november 2005 - 19:47 #3
REST betyder at klienten ønsker at restarte en overførsel fra en bestemt position:

RESTART (REST)

            The argument field represents the server marker at which
            file transfer is to be restarted.  This command does not
            cause file transfer but skips over the file to the specified
            data checkpoint.  This command shall be immediately followed
            by the appropriate FTP service command which shall cause
            file transfer to resume.

http://www.w3.org/Protocols/rfc959/A3_FTP_RFCs.html
Avatar billede Slettet bruger
28. november 2005 - 21:37 #4
ok.. Det virker som om du har en del kenskab til det her..

måske du kan hjælpe da jeg ønsker at lave en nem version som jeg så kan udvikle på

min kode ser sådan ud lige nu..

Private Sub FTP_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim inkom As String
    FTP(Index).GetData inkom
    If UCase(Left$(inkom, 4)) = "USER" Then
        FTP(Index).Tag = Mid(inkom, 6, (Len(inkom) - 2))
        Me.Label1.Caption = FTP(Index).Tag
        FTP(Index).SendData "331 Password required for " & FTP(Index).Tag
    ElseIf UCase(Left$(inkom, 4)) = "PASS" Then
        FTP(Index).SendData "230 Password correct. User " & FTP(Index).Tag & " logged in" & vbCrLf
    ElseIf UCase(Left$(inkom, 3)) = "PWD" Then
        FTP(Index).SendData "257 C:\ is the current directory" & vbCrLf
    ElseIf UCase(Left$(inkom, 4)) = "FEAT" Then
        'FTP(Index).SendData "215 UNIX Type: L8" & vbCrLf
        FTP(Index).SendData "215 UNIX Type: Tribe Software Ftp Server" & vbCrLf
    ElseIf UCase(Left$(inkom, 4)) = "REST" Then
        ' Mit næste problem
        FTP(Index).SendData "351 Restarting at 100. Send STOR or RETR to initiate transfer"
    End If
    Me.Text1.Text = Me.Text1.Text + inkom
End Sub

min ide er at den bare accepter det navn man logger ind med og så går ind på c:\
med alle retigheder.

ved ikke om jeg kan få dig til at hjælpe mig vider ?
Avatar billede Slettet bruger
28. november 2005 - 21:39 #5
Jeg er nemlige ikke sikker på det er som det skal være i min kode..
Avatar billede sjh Nybegynder
28. november 2005 - 22:33 #6
webiis > Det er en stor opgave du har sat dig på.. da er op til flere som har forsøgt at lave en FTP-Server men det er ikke så nemt enda.. men du kunne jo prøve at se om du ikke kan finde lidt kode på planet-source-code.. jeg har også prøvet om jeg kunne lave sådan en.. men det er sq ikke så nemt som HTTP..

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&B1=Quick+Search&txtCriteria=FTP+server
Avatar billede Slettet bruger
02. december 2005 - 19:27 #7
Til folk som SJH, jeg arbejder på mit ftp program, og det går ok, men der er små fejl.. som nok vil blive lagt ud til hjælp her.
Avatar billede Slettet bruger
13. januar 2006 - 09:01 #8
Opgiver
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester