Processing table: prc.scramble_pass

Jump to line:


1
 
If:
 

 
 
Then:
declare extern PEncode,Pass

2
 
If:
 

 
 
Then:
declare PLen(20,.0),PLoc(20,.0),PChar(1,*),PAlt(1,*),PVal(4,.0),PConv(4,*),PScram(40,*),PSet(2,*),PSAlt(2,*)

3
 
If:
 

 
 
Then:
declare PSLoc(20,.0)

4
 
If:
 

 
 
Then:
PLen=len(Pass);PLoc="1";PEncode=""

5
ptrans
If:
PLoc le PLen

 
 
Then:
PChar=mid(Pass,PLoc,"1");PVal=asc(PChar);PConv=base(PVal,"10","16")

6
 
If:
PLoc le PLen

 
 
Then:
PEncode=PEncode{PConv;PLoc=PLoc+"1";goto ptrans

7
 
If:
 

 
 
Then:
PLoc="2";PScram=""

8
pscram1
If:
PLoc le (PLen*"2")

 
 
Then:
PChar=mid(PEncode,PLoc-"1","1");PAlt=mid(PEncode,PLoc,"1")

9
 
If:
PLoc le (PLen*"2")

 
 
Then:
PScram=PScram{PAlt{PChar;PLoc=PLoc+"2";goto pscram1

10
 
If:
 

 
 
Then:
PEncode=PScram

11
 
If:
 

 
 
Then:
PLoc="1";PSLoc="39";PScram=""

12
pscram2
If:
PLoc le "37"

 
 
Then:
PSet=mid(PEncode,PLoc,"2");PSAlt=mid(PEncode,PSLoc,"2")

13
 
If:
PLoc le "37"

 
 
Then:
PScram=PScram{PSAlt{PSet

14
 
If:
PLoc le "37"

 
 
Then:
PLoc=PLoc+"4";PSLoc=PSLoc-"4";goto pscram2

15
 
If:
 

 
 
Then:
PEncode=PScram

16
 
If:
 

 
 
Then:
end


Displayed with Fairlight prc2html v01.02.08