469,281 Members | 2,450 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,281 developers. It's quick & easy.

Checking my code

Good day folks.

I am currently working on taking messages from my router and trying to parse
the log. I have done this, but want some feedback to see if I have done
this with the mininmal amount of code, or the best method of writing it in
your opinions.

Code follows:

Dim Text,PT,PTT,tSIPp,Last
RawText = "Hacker Log[26782]:PROTO_TCP, SIP:24.242.49.56: 2722,
DIP:24.242.178.122: 80, Code-Red"
Text = split(RawText,":",-1,1)
PT=split(Text(1),",",2,1)
PTT=split(PT(0),"_",2,1)
PType= PTT(1)
SIP=Text(2)
tSIPp = split(Text(3),",",2,1)
SIPp=tSIPp(0)
DIP=Text(4)
last = split(Text(5),",",2,1)
DIPp=Last(0)
AtkName=Last(1)

Response.Write "Protocol Type: " & PType & "<br>"
Response.Write "Source IP: " & SIP & "<br>"
Response.Write "Source IP Port: " & SIPp & "<br>"
Response.Write "Destination IP: " & DIP & "<br>"
Response.Write "Destination IP Port: " & DIPp & "<br>"
Response.Write "Attack Name: " & AtkName & "<br>"

Thanks from this ASP Newbie
Jul 19 '05 #1
3 1458
I think it's fine. All code can be written in many different ways, so it
all depends on what you like. I don't see anything glaringly inefficient or
"wrong" anywhere. What I would do differently is the naming conventions of
variables.

sText, sPT, sPTT, sSIPp, sLast

If you want to get as few lines as possible, you could start doing
substitution method with your code to eliminate lines (which typically has
an adverse effect on readability). Example:

Replace:
last = split(Text(5),",",2,1)
DIPp=Last(0)

With:
DIPp = split(Text(5),",",2,1)(0)

But I'm only throwing that in for the sake of finding something to change.

Ray at work

"David P. Jessup" <davidATimntDASHtechDOTcom> wrote in message
news:ut**************@tk2msftngp13.phx.gbl...
Good day folks.

I am currently working on taking messages from my router and trying to parse the log. I have done this, but want some feedback to see if I have done
this with the mininmal amount of code, or the best method of writing it in
your opinions.

Code follows:

Dim Text,PT,PTT,tSIPp,Last
RawText = "Hacker Log[26782]:PROTO_TCP, SIP:24.242.49.56: 2722,
DIP:24.242.178.122: 80, Code-Red"
Text = split(RawText,":",-1,1)
PT=split(Text(1),",",2,1)
PTT=split(PT(0),"_",2,1)
PType= PTT(1)
SIP=Text(2)
tSIPp = split(Text(3),",",2,1)
SIPp=tSIPp(0)
DIP=Text(4)
last = split(Text(5),",",2,1)
DIPp=Last(0)
AtkName=Last(1)

Response.Write "Protocol Type: " & PType & "<br>"
Response.Write "Source IP: " & SIP & "<br>"
Response.Write "Source IP Port: " & SIPp & "<br>"
Response.Write "Destination IP: " & DIP & "<br>"
Response.Write "Destination IP Port: " & DIPp & "<br>"
Response.Write "Attack Name: " & AtkName & "<br>"

Thanks from this ASP Newbie

Jul 19 '05 #2
Thanks Ray for quick response!
Jul 19 '05 #3
Assuming the fields are always split on those delimiters, and that you
won't see any additional fields tossed in among them in the log, your
code appears fine.

Jeff

On Wed, 10 Sep 2003 09:02:36 -0500, "David P. Jessup"
<davidATimntDASHtechDOTcom> wrote:
Good day folks.

I am currently working on taking messages from my router and trying to parse
the log. I have done this, but want some feedback to see if I have done
this with the mininmal amount of code, or the best method of writing it in
your opinions.

Code follows:

Dim Text,PT,PTT,tSIPp,Last
RawText = "Hacker Log[26782]:PROTO_TCP, SIP:24.242.49.56: 2722,
DIP:24.242.178.122: 80, Code-Red"
Text = split(RawText,":",-1,1)
PT=split(Text(1),",",2,1)
PTT=split(PT(0),"_",2,1)
PType= PTT(1)
SIP=Text(2)
tSIPp = split(Text(3),",",2,1)
SIPp=tSIPp(0)
DIP=Text(4)
last = split(Text(5),",",2,1)
DIPp=Last(0)
AtkName=Last(1)

Response.Write "Protocol Type: " & PType & "<br>"
Response.Write "Source IP: " & SIP & "<br>"
Response.Write "Source IP Port: " & SIPp & "<br>"
Response.Write "Destination IP: " & DIP & "<br>"
Response.Write "Destination IP Port: " & DIPp & "<br>"
Response.Write "Attack Name: " & AtkName & "<br>"

Thanks from this ASP Newbie


Jul 19 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

5 posts views Thread by Tongu? Yumruk | last post: by
reply views Thread by Lucifer | last post: by
22 posts views Thread by Qopit | last post: by
66 posts views Thread by Johan Tibell | last post: by
4 posts views Thread by Patient Guy | last post: by
125 posts views Thread by jacob navia | last post: by
7 posts views Thread by polas | last post: by
1 post views Thread by CARIGAR | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.