recover .vb source code in ASP .NET

[Maellic]

Hi,

I'm currently updating a website written with ASP.NET. The original
programmer is overseas, there is no documentation, and files are all
over the place.

Here is a code snippet from one of the .vb file used by the
application (the entire code of the file is at the end of the post):

If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then

I can't find where that EmissionsWebBll class comes from. When I try
to Go To Definition, nothing happens. I've looked for an
EmissionsWebBll .vb but can't find it. I fear the source code might be
missing but as I'm not very familiar with ASP.NET, could somebody tell
me whether I should actually be looking for this file or whether I'm
getting confused? I have file called EmissionsWebBll .dll, is there a
way to recover the vb source code from that file?
Thanks for the help

Maelle

Public Class Secure
Inherits System.Web.UI.P age
Protected WithEvents txtUserName As
System.Web.UI.W ebControls.Text Box
Protected WithEvents btnSubmit As System.Web.UI.W ebControls.Butt on
Protected WithEvents btnNewRptYear As
System.Web.UI.W ebControls.Butt on
Protected WithEvents vlUserName As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents vlPassword As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents lblStatus As System.Web.UI.W ebControls.Labe l
Protected WithEvents txtPassword As
System.Web.UI.W ebControls.Text Box

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeCompo nent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then

End If
End Sub
Private Sub btnSubmit_Click (ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnSubmit.Click
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
Dim LoginID As String

'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
'First check to see whether its the users first login
If EmissionsWebBLL .Security.Valid ateFirstLogin(t xtUserName.Text ,
txtPassword.Tex t) = True Then
'User has changed password previously, now check how
long ago password was changed
If EmissionsWebBLL .Security.Valid atePasswordHist ory(txtUserName .Text,
txtPassword.Tex t, RptYear) = False Then
'Password needs changing
Response.Redire ct("PasswordCha nge.aspx?Userna me="
& txtUserName.Tex t)
Else
'Everything aok, proceed to asp page with login in
querystring
LoginID =
EmissionsWebBLL .Security.GetLo ginID(txtUserNa me.Text,
txtPassword.Tex t, RptYear)
Response.Redire ct("getUserDeta ils.asp?LoginID =" &
LoginID)
End If

Else
'User needs to activiate a new password, redirect to
FirstLogin page
Response.Redire ct("FirstLogin. aspx?Username=" &
txtUserName.Tex t)
End If
Else
lblStatus.Text = "Incorrect username or password, try
again."
End If
End Sub

Private Sub btnNewRptYear_C lick(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles btnNewRptYear.C lick
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
Response.Redire ct("NewRPTYearS etup.asp?Alias= " &
txtUserName.Tex t)
Else
lblStatus.Text = "Incorrect username or password, try
again. To activate this function you must also select the most recent
reporting year."
End If
End Sub
End Class

[Thomas Johansen]

Hi,

I suggest you take a look at decompilers like Anakrino if you want to
recover the source code (remember all comments are gone, as these are
omitted during compilation) http://www.saurik.com/net/exemplar/

Please not, I have not tested anakrino in a while, and not sure if it can
decompile to VB.NET or only to C#.

--
Regards,
Thomas Johansen (aka. Aylar)

Maellic <ma*********@ya hoo.fr> wrote:

Hi,

I'm currently updating a website written with ASP.NET. The original
programmer is overseas, there is no documentation, and files are all
over the place.

Here is a code snippet from one of the .vb file used by the
application (the entire code of the file is at the end of the post):

If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then

I can't find where that EmissionsWebBll class comes from. When I try
to Go To Definition, nothing happens. I've looked for an
EmissionsWebBll .vb but can't find it. I fear the source code might be
missing but as I'm not very familiar with ASP.NET, could somebody tell
me whether I should actually be looking for this file or whether I'm
getting confused? I have file called EmissionsWebBll .dll, is there a
way to recover the vb source code from that file?
Thanks for the help

Maelle

Public Class Secure
Inherits System.Web.UI.P age
Protected WithEvents txtUserName As
System.Web.UI.W ebControls.Text Box
Protected WithEvents btnSubmit As System.Web.UI.W ebControls.Butt on
Protected WithEvents btnNewRptYear As
System.Web.UI.W ebControls.Butt on
Protected WithEvents vlUserName As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents vlPassword As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents lblStatus As System.Web.UI.W ebControls.Labe l
Protected WithEvents txtPassword As
System.Web.UI.W ebControls.Text Box

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeCompo nent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then

End If
End Sub
Private Sub btnSubmit_Click (ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnSubmit.Click
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
Dim LoginID As String

'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
'First check to see whether its the users first login
If
EmissionsWebBLL .Security.Valid ateFirstLogin(t xtUserName.Text ,
txtPassword.Tex t) = True Then 'User has changed
password previously, now check how
long ago password was changed
If
EmissionsWebBLL .Security.Valid atePasswordHist ory(txtUserName .Text,
txtPassword.Tex t, RptYear) = False Then 'Password
needs changing
Response.Redire ct("PasswordCha nge.aspx?Userna me=" & txtUserName.Tex t)
Else
'Everything aok, proceed to asp page with login in
querystring
LoginID =
EmissionsWebBLL .Security.GetLo ginID(txtUserNa me.Text,
txtPassword.Tex t, RptYear)
Response.Redire ct("getUserDeta ils.asp?LoginID =" &
LoginID)
End If

Else
'User needs to activiate a new password, redirect to
FirstLogin page
Response.Redire ct("FirstLogin. aspx?Username=" &
txtUserName.Tex t)
End If
Else
lblStatus.Text = "Incorrect username or password, try
again."
End If
End Sub

Private Sub btnNewRptYear_C lick(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles btnNewRptYear.C lick
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
Response.Redire ct("NewRPTYearS etup.asp?Alias= " &
txtUserName.Tex t)
Else
lblStatus.Text = "Incorrect username or password, try
again. To activate this function you must also select the most recent
reporting year."
End If
End Sub
End Class

[Tommy]

If "EmissionsWebBl l.dll" is compiled in debug mode, and if you have
"EmissionsWebBl l.pdb", then you should be able to step into the dll
and look at the source code using Visual Studio .NET.

Tommy,

ma*********@yah oo.fr (Maellic) wrote in message news:<15******* *************** ****@posting.go ogle.com>...

Hi,

I'm currently updating a website written with ASP.NET. The original
programmer is overseas, there is no documentation, and files are all
over the place.

Here is a code snippet from one of the .vb file used by the
application (the entire code of the file is at the end of the post):

If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then

I can't find where that EmissionsWebBll class comes from. When I try
to Go To Definition, nothing happens. I've looked for an
EmissionsWebBll .vb but can't find it. I fear the source code might be
missing but as I'm not very familiar with ASP.NET, could somebody tell
me whether I should actually be looking for this file or whether I'm
getting confused? I have file called EmissionsWebBll .dll, is there a
way to recover the vb source code from that file?
Thanks for the help

Maelle

Public Class Secure
Inherits System.Web.UI.P age
Protected WithEvents txtUserName As
System.Web.UI.W ebControls.Text Box
Protected WithEvents btnSubmit As System.Web.UI.W ebControls.Butt on
Protected WithEvents btnNewRptYear As
System.Web.UI.W ebControls.Butt on
Protected WithEvents vlUserName As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents vlPassword As
System.Web.UI.W ebControls.Requ iredFieldValida tor
Protected WithEvents lblStatus As System.Web.UI.W ebControls.Labe l
Protected WithEvents txtPassword As
System.Web.UI.W ebControls.Text Box

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form
Designer
'Do not modify it using the code editor.
InitializeCompo nent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then

End If
End Sub
Private Sub btnSubmit_Click (ByVal sender As System.Object, ByVal e
As System.EventArg s) Handles btnSubmit.Click
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
Dim LoginID As String

'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
'First check to see whether its the users first login
If EmissionsWebBLL .Security.Valid ateFirstLogin(t xtUserName.Text ,
txtPassword.Tex t) = True Then
'User has changed password previously, now check how
long ago password was changed
If EmissionsWebBLL .Security.Valid atePasswordHist ory(txtUserName .Text,
txtPassword.Tex t, RptYear) = False Then
'Password needs changing
Response.Redire ct("PasswordCha nge.aspx?Userna me="
& txtUserName.Tex t)
Else
'Everything aok, proceed to asp page with login in
querystring
LoginID =
EmissionsWebBLL .Security.GetLo ginID(txtUserNa me.Text,
txtPassword.Tex t, RptYear)
Response.Redire ct("getUserDeta ils.asp?LoginID =" &
LoginID)
End If

Else
'User needs to activiate a new password, redirect to
FirstLogin page
Response.Redire ct("FirstLogin. aspx?Username=" &
txtUserName.Tex t)
End If
Else
lblStatus.Text = "Incorrect username or password, try
again."
End If
End Sub

Private Sub btnNewRptYear_C lick(ByVal sender As System.Object,
ByVal e As System.EventArg s) Handles btnNewRptYear.C lick
Dim RptYear As String = CType(Request.F orm("eYear"), Integer)
- 1 & "/" & Request.Form("e Year")
'Check to see whether username and password exists
If EmissionsWebBLL .Security.Valid ateLogin(txtUse rName.Text,
txtPassword.Tex t, RptYear) = True Then
Response.Redire ct("NewRPTYearS etup.asp?Alias= " &
txtUserName.Tex t)
Else
lblStatus.Text = "Incorrect username or password, try
again. To activate this function you must also select the most recent
reporting year."
End If
End Sub
End Class