Home > database >  Rookie for PB of the meaning of a simple code [code]
Rookie for PB of the meaning of a simple code [code]

Time:10-03

//gf_uotdense is a decryption algorithm 
//decrypt the string is: before the 6 l35mc53ck6omc
//decrypted ls_check_code value is 1 x20x1048320

Ls_check_code=gf_uotdense (ls_check_code)


//it can see
If pos (ls_check_code, "X")=0 then
F_messagebox (" check code error ", "please input the correct registration check code!" , stopsign! , ok! The 1)
The parent. Sle_ck. Setfocus ()
Return
End the if

//here is to put the string modified, according to the value of the above, here it is concluded that the ls_tem=20 x1048320, also is to get rid of the former two!
Ll_s=long (left (ls_check_code, pos (ls_check_code, "X") - 1))
Ls_tem=mid (ls_check_code, pos (ls_check_code, "X") + 1)

If pos (ls_tem, "X")=0 then
F_messagebox (" check code error ", "please enter the correct registration check code!!!! ", stopsign! , ok! The 1)
The parent. Sle_ck. Setfocus ()
Return
End the if

//is mainly the following paragraph, what do you use, the result is what?
//g_entity_name is the name of the company, the software has a table is to save the company information of


Ll_ln=long (left (ls_tem, pos (ls_tem, "X") - 1))
Ls_ctrl_code=mid (ls_tem, pos (ls_tem, "X") + 1)
Ll_reg_name=mid (g_entity_name ll_s, ll_ln)
Ll_ln=len (ll_reg_name)

If ll_ln & gt; 4 then

If the mod (ll_ln, 4)=0 then
Loops=ll_ln/4
The else
Loops=ll_ln/4 + 1
End the if

The else
Loops=1
End the if


Want to know what role this last period of cycle is:)

CodePudding user response:

's PB code, it's a pity that there is no PB insert code option

CodePudding user response:

If ll_ln & gt; 4 then

If the mod (ll_ln, 4)=0 then
Loops=ll_ln/4
The else
Loops=ll_ln/4 + 1
End the if

The else
Loops=1
End the if

You should have this back and code, if you want to read a string, a read four characters, and loops should be calculated to read the number of times,

CodePudding user response:

Yes, I put all the code posted,
Ha ha, thank you ~ ~ ~ upstairs

CodePudding user response:

Dizzy, too long, don't let stick ah ~ ~ ~ ~
Wish I could upload attachments, upstairs friend can I add your QQ, my is: 961363236

CodePudding user response:

Is hexadecimal conversion, four four go, it is not difficult to o

CodePudding user response:

What about to reverse the original calculated, can?
  • Related