Merry Christmas Jonathan, what is this... and is it any good?

I have an old script where they have a "Main:" in it
in the following syntax:

[code]Main:
{
###code in here...

}[/code]

I've never come across this before, are there any security concerns here?
and why would someone do this?

Hope you New Year is bright!

Regards,
Joe McTigue

Comments

  • Hi from a chilly Vienna. Thankfully, the airport is warm inside and I'm only here for a few hours anyway - getting a connection and heading for the Perl Workshop in Israel, which is pretty exciting! :-)

    : I have an old script where they have a "Main:" in it
    : in the following syntax:
    :
    : [code]: Main:
    : {
    : ###code in here...
    :
    : }[/code]:
    :
    : I've never come across this before, are there any security concerns
    : here?
    : and why would someone do this?
    Took me a moment to realize what it was! :-) Anything followed by a colon is just a label. When you attach a label to a block, you can do things like:

    last LABEL;
    next LABEL;

    And so on. So if you have nested loops you can state which one your control "exceptions" apply to. So look for usages of the Main label in the code, to see why it's there. If it's unused, I'd guess it's redundant.

    : Hope you New Year is bright!
    Thanks, same to you!

    Jonathan

    ###
    for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
  • : Hi from a chilly Vienna. Thankfully, the airport is warm inside and
    : I'm only here for a few hours anyway - getting a connection and
    : heading for the Perl Workshop in Israel, which is pretty exciting!
    : :-)
    :
    : : I have an old script where they have a "Main:" in it
    : : in the following syntax:
    : :
    : : [code]: : Main:
    : : {
    : : ###code in here...
    : :
    : : }[/code]: :
    : :
    : : I've never come across this before, are there any security concerns
    : : here?
    : : and why would someone do this?
    : Took me a moment to realize what it was! :-) Anything followed by a
    : colon is just a label. When you attach a label to a block, you can
    : do things like:
    :
    : last LABEL;
    : next LABEL;
    :
    : And so on. So if you have nested loops you can state which one your
    : control "exceptions" apply to. So look for usages of the Main label
    : in the code, to see why it's there. If it's unused, I'd guess it's
    : redundant.
    :
    : : Hope you New Year is bright!
    : Thanks, same to you!
    :
    : Jonathan
    :
    : ###
    : for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    : (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    : /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");


    Thanks from Chilli Ohio (US).
    Old Joe (home)
  • : Thanks from Chilli Ohio (US).
    Thankfully, I'm now in Tel Aviv, which has been nice and warm today. :-)

    Jonathan

    ###
    for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
  • : : Thanks from Chilli Ohio (US).
    : Thankfully, I'm now in Tel Aviv, which has been nice and warm today.
    : :-)
    :
    : Jonathan
    :
    : ###
    : for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    : (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    : /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");

    Jonathan, quick question... Different topic...

    In using DBI, can you send PL/SQL or statements using cursors
    in your prepare statements and execute them successfully?

    All the Best,
    Joe (alias: Old Joe)

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories