RPG AS/400 Programming Help

55 pts.
Tags:
AS/400
Code
RPG
Hi, I have a question regarding RPG which I have zero experience or knowledge. My problem is that there is an expiry code in the system and the programmer who supported our software passed away unexpectedly. We have been back dating our server to 11/30/13 in order to access the system each day. I was able to get the following information but I’m not sure how to interpret it. The Expiry uses two answer keys of 10 digits each. I have provided 2 sets of keys for different expiration dates. Thanks for your help.
C* get answers that have keys for expiry
C*
C*** Get EXPIRY Key part 1
C*
C                       MOVE ‘OE               	‘XXANGR
C			Z-ADD901	   XXANNO
C          	XXANKY	CHAINANSWER		LR
C	NLR		MOVELANSANS	   XXX1	15
C	 LR		GOTO ENDSTR
C*
C*
C*** Get EXPIRY Key part 2
C*
C			MOVE ‘OE	‘XXANGR
C			Z-ADD902	 XXANNO
C		XXANKY	CHAINANSWER		LR
C	NLR		MOVELANSANS	 XXX5	  5
C	NLR		MOVE XXX5	  XXX1
C	NLR		MOVE ANSANS	  XXX5
C	NLR		MOVEAXXX5	 ECX
C	 LR		GOTO ENDSTR
C*
C*

These are the Keys from the Answer File:

901	9519267858
902	6628601166
(these keys give an expiration of 11/30/13)

Keys for expiration date of 3/30/13
901	9519267659
902	6628601166

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 14  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • CharlieBrowne

    A couple of questions for you.

    1. Is this a software package you purchased from a vendor?

    2. Did you have to pay this programmer a fee When ever you reached the expire date?

    3. Who owns the code? Your company or the programmer? What do you have in writing about ownership? You may have to buy it from his estate if he owns it.

    41,380 pointsBadges:
    report
  • philpl1jb

    This is an ethical delima as well as a technical challenge.

     

    50,860 pointsBadges:
    report
  • Saylr123
    We purchased the software and did not pay a fee when the expire date came. It was put in to prevent pirating. We have been using it since mid 1980. I have contacted the estate about providing me with the proper codes and they are unable to. They have no problem with me trying to decipher it. We are moving to new software but it won't take place until mid May.
    55 pointsBadges:
    report
  • philpl1jb

    Search the code for XXX1 and XXX5 and ECX

    Those are the most probable fields being used

    50,860 pointsBadges:
    report
  • CharlieBrowne
    Unless you have the algorithm the programmer used to create the codes, then you need to look at removing the code validation routine in the programs. 
    41,380 pointsBadges:
    report
  • Saylr123
    Unfortunately, I don't have the algorithm or the source code. I didn't know if anything in the code would help to identify what numbers are actually used in the expiry. By trial and error, I was able to extend it from 10/30/13 to 11/30/13. Here are the other codes that I do have:
    9518267859 6628201166 Date: 1/31/13
    9519267659 6628601166 Date: 3/30/13
    9519267958 6628801166 Date: 10/30/13
    9519267858 6628601166 Date: 11/30/13

    As you can see, only certain numbers seem to change.
    55 pointsBadges:
    report
  • CharlieBrowne
    If you purchased the program, you should have the source code.
    You need to request that from the estate.
    When the programmer was making changes for you, where did he keep the source code?
    41,380 pointsBadges:
    report
  • Saylr123
    We searched his computer and couldn't find the source code. There is no telling what he did with it. Having it would sure make things easier.
    55 pointsBadges:
    report
  • CharlieBrowne
    Regarding only selected numbers changing --  Possibly some of the numbers that are not change are for the YEAR.
    -- 
    When was the last time this programmer did something for you? Does he have his own AS400? Where did the original code come from? Did he write it all? 
    You say you do not have source code, but you listed some code in the original  question. Where did that come from?
    41,380 pointsBadges:
    report
  • philpl1jb

    You've shown us a bit of code .. we understand it but it doesn't clarify how these codes are used for that we need other code with

    the variables XXX1 and XXX5 and ECX

    50,860 pointsBadges:
    report
  • Saylr123
    He did some work for me over a year ago. I was dealing with his son-in-law, 8 states away about getting the source code for this problem. The only thing he could find that specified "expiry" was sent to me as a screen print. The programmer wrote probably 75%. He acquired it from his partner who has also died. I'm not sure if he had an AS400 or not. 
    55 pointsBadges:
    report
  • CharlieBrowne
    So the son-in-law has the code since he gave you a screen print.
    You need to get the source code from him.
    41,380 pointsBadges:
    report
  • Saylr123
    We've hit a dead end trying to find it on the computer.
    Thanks for your help. I appreciate it.
    55 pointsBadges:
    report
  • ToddN2000
    Depending on how the program object was created you may be able to get the source by running a debug session.
    15,060 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following