Managed Code FTP Component Reqd

[Daren Hawes]

Hi,

My web host has a low security setting on the shared .net server I use. I
cannot use third party dll's or install assemblies in the GAC.

All I need to do is verify that a FTP login is true. I do not need to move
files etc, simply check if the ftp details that were collected in a web form
actually authenticate with the remote ftp server. Can this be completed
using managed code only?

Please help

[Martin Dechev]

You can use the wininet functions, it is quite easy:

using System;
using System.Runtime. InteropServices ;

public class DllImports
{
[DllImport("WinI net.dll", CharSet=CharSet .Auto)]
public static extern IntPtr InternetOpen(
string lpszAgent,
int dwAccessType,
string lpszProxyName,
string lpszProxyBypass ,
int dwFlags);

[DllImport("WinI net.dll", CharSet=CharSet .Auto)]
public static extern IntPtr InternetConnect (
IntPtr hInternet,
string lpszServerName,
int nServerPort,
string lpszUsername,
string lpszPassword,
int dwService,
int dwFlags,
IntPtr dwContext);

[DllImport("WinI net.dll")]
public static extern int InternetCloseHa ndle(IntPtr hInternet);

[DllImport("WinI net.dll", CharSet=CharSet .Auto)]
public static extern int InternetGetLast ResponseInfo(
ref int lpdwError,
System.Text.Str ingBuilder lpszBuffer,
ref int lpdwBufferLengt h);
}

public class some_aspx : System.Web.UI.P age
{
protected void Page_Load(objec t s, EventArgs e)
{
IntPtr InternetOpen = DllImports.Inte rnetOpen(
@"Mozilla/4.0+(compatible ;+MSIE+6.0;+Win dows+NT+5.2;+.N ET+CLR+1.1.4322 )",
0,//INTERNET_OPEN_T YPE_PRECONFIG
null,
null,
0);
if(InternetOpen == IntPtr.Zero)
{
Response.Write( "InternetOp en failed with errorcode:<br>" +
Marshal.GetLast Win32Error());
return;
}
int a = 724;//Just anything
IntPtr InternetConnect = DllImports.Inte rnetConnect(
InternetOpen,
"your server",
21,//INTERNET_DEFAUL T_FTP_PORT
"your username",
"your password",
1,//INTERNET_SERVIC E_FTP
0x08000000,//INTERNET_FLAG_P ASSIVE
new IntPtr(a));
if(InternetConn ect == IntPtr.Zero)
{
Response.Write( "InternetConnec t failed with errorcode:<br>" +
Marshal.GetLast Win32Error());
int lpdwError = 0, lpdwBufferLengt h = 2048;
System.Text.Str ingBuilder lpszBuffer =
new System.Text.Str ingBuilder(lpdw BufferLength);
DllImports.Inte rnetGetLastResp onseInfo(
ref lpdwError,
lpszBuffer,
ref lpdwBufferLengt h);
Response.Write( "<br><br>Intern etGetLastRespon seInfo:");
Response.Write( "<br>Error: " + lpdwError);
Response.Write( "<br>Messag e: " + lpszBuffer.ToSt ring());
DllImports.Inte rnetCloseHandle (InternetOpen);
return;
}
Response.Write( "Connection succeeded.");
DllImports.Inte rnetCloseHandle (InternetOpen);
DllImports.Inte rnetCloseHandle (InternetConnec t);
}
}

Hope this helps
Martin
"Daren Hawes" <da***@webdesig nmagic.com.au> wrote in message
news:uR******** ******@TK2MSFTN GP12.phx.gbl...

Hi,

My web host has a low security setting on the shared .net server I use. I
cannot use third party dll's or install assemblies in the GAC.

All I need to do is verify that a FTP login is true. I do not need to move files etc, simply check if the ftp details that were collected in a web form actually authenticate with the remote ftp server. Can this be completed
using managed code only?

Please help

[Daren Hawes]

Is there a VB version around?

Thanks Daren

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Daren Hawes]

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Martin Dechev]

I believe the second (the Page) class is quite simple.

the DllImports in VB.NET should look like:

<DllImport("Win Inet.dll", EntryPoint := "InternetOp en", _
CharSet := CharSet.Auto, ExactSpelling := True)> _
public shared function InternetOpen( _
lpszAgent as string, _
dwAccessType as int32, _
lpszProxyName as string, _
lpszProxyBypass as string, _
dwFlags as int32) as IntPtr
End function

and so on...

Greetings
Martin
"Daren Hawes" <da***@webdesig nmagic.com.au> wrote in message
news:OS******** ******@TK2MSFTN GP11.phx.gbl...

Is there a VB version around?

Thanks Daren

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Daren Hawes]

Hi Martin,

I am so sorry, but I have tried to convert to VB. I am a student, and
find convering some things from C# to VB, especially system DLL imports!

Is there anywhere you can point me for a VB version of both the class
and the ASP.NET page?

Thx Daren

In the meantime I will search around...

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Martin Dechev]

Imports System
Imports System.Runtime. InteropServices

Public Class DllImports
<DllImport("Win Inet.dll", _
EntryPoint:="In ternetOpen", _
CharSet:=CharSe t.Auto, ExactSpelling:= True)> _
Public Shared Function InternetOpen( _
ByVal lpszAgent As String, _
ByVal dwAccessType As Int32, _
ByVal lpszProxyName As String, _
ByVal lpszProxyBypass As String, _
ByVal dwFlags As Int32) As IntPtr
End Function

<DllImport("Win Inet.dll", _
EntryPoint:="In ternetConnect", _
CharSet:=CharSe t.Auto, ExactSpelling:= True)> _
Public Shared Function InternetConnect ( _
ByVal hInternet As IntPtr, _
ByVal lpszServerName As String, _
ByVal nServerPort As Int32, _
ByVal lpszUsername As String, _
ByVal lpszPassword As String, _
ByVal dwService As Int32, _
ByVal dwFlags As Int32, _
ByVal dwContext As IntPtr) As IntPtr
End Function

<DllImport("Win Inet.dll", _
EntryPoint:="In ternetCloseHand le", _
CharSet:=CharSe t.Auto, ExactSpelling:= True)> _
Public Shared Function InternetCloseHa ndle( _
ByVal hInternet As IntPtr) As Int32
End Function

<DllImport("Win Inet.dll", _
EntryPoint:="In ternetGetLastRe sponseInfo", _
CharSet:=CharSe t.Auto, ExactSpelling:= True)> _
Public Shared Function InternetGetLast ResponseInfo( _
ByRef lpdwError As Int32, _
ByVal lpszBuffer As System.Text.Str ingBuilder, _
ByRef lpdwBufferLengt h As Int32) As Int32
End Function

Public Shared Function CheckFtpLogin( _
ByVal FtpServerName As String, _
ByVal FtpUsername As String, _
ByVal FtpPassword As String) As Boolean
Dim InternetOpen, InternetConnect As IntPtr
Dim a As Int32 = 724 'whatever
Dim p As New IntPtr(a)
InternetOpen = DllImports.Inte rnetOpen( _
"Mozilla/4.0+(compatible ;+MSIE+6.0;+Win dows+NT+5.2;+.N ET+CLR+1.1.4322 )", _
0, _
Nothing, _
Nothing, _
0)
If IntPtr.op_Equal ity(InternetOpe n, IntPtr.Zero) Then
'InternetOpen failed.
'Call Marshal.GetLast Win32Error() for the errorcode
Return False
End If
InternetConnect = DllImports.Inte rnetConnect( _
InternetOpen, _
FtpServerName, _
21, _
FtpUsername, _
FtpPassword, _
1, _
&H8000000, _
p)
If IntPtr.op_Equal ity(InternetCon nect, IntPtr.Zero) Then
'InternetOpen failed.
'Call Marshal.GetLast Win32Error() for the errorcode
'Call InternetGetLast ResponseInfo to see the response
Dim lpdwError As Int32 = 0
Dim lpdwBufferLengt h As Int32 = 2048
Dim lpszBuffer As _
New System.Text.Str ingBuilder(lpdw BufferLength)
DllImports.Inte rnetGetLastResp onseInfo( _
lpdwError, lpszBuffer, lpdwBufferLengt h)
'Free the handle:
DllImports.Inte rnetCloseHandle (InternetOpen)
Return False
End If
' Everything OK
'Free the handles:
DllImports.Inte rnetCloseHandle (InternetOpen)
DllImports.Inte rnetCloseHandle (InternetConnec t)
Return True
End Function
End Class

"Daren Hawes" <da***@webdesig nmagic.com.au> wrote in message
news:#G******** ******@TK2MSFTN GP10.phx.gbl...

Hi Martin,

I am so sorry, but I have tried to convert to VB. I am a student, and
find convering some things from C# to VB, especially system DLL imports!

Is there anywhere you can point me for a VB version of both the class
and the ASP.NET page?

Thx Daren

In the meantime I will search around...

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!