Howdy, Stranger!

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

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

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

old_Joeold_Joe Posts: 8Member
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

  • JonathanJonathan Posts: 2,914Member
    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.");
  • Old Joe (Home)Old Joe (Home) Posts: 3Member
    : 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)
  • JonathanJonathan Posts: 2,914Member
    : 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.");
  • old_Joeold_Joe Posts: 8Member
    : : 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.