Encryption algorithm seeking a VB
[Users questions | Browse:48 | Favorites]
Users questions: Seeking a VB of the string encryption algorithm, read some source code under the line, can not direct the implementation of the code required to run directly, preferably with examples. Have improved scores, and problem solving immediately to the sub!
Experts answer: provides a platform for knowledge exchange. If you can not afford , Please do not posts, as this will mislead the questioner. Love had asked very disappointing, noting that problems are not resolved, all posts are irrigation, if it continues like that, who come here to ask a question? I found here Some people, obviously they are incapable, but why not with an open mind to study it? Why What we seek here to irrigation, and we seek to show his power? Meet the program source code, If you still have questions, please give me letters, thank you. 'Principle: a random encryption of the string, if the function succeeds, return encrypted character, otherwise 0PublicFunctionE rSingleAsString*1OnLocalErrorGoToEDcodeErrorEDcode$= IfLen(CharString)=0ThenEDcode$= 1 ExitFunction nteger = Int (256 * MRND) And & H7FCharNum = CharNumXorRandomIntegerCharSingle = Chr $ (CharNum) EDcode EDcode $ $ = + A rSingleNextiExitFunctionEDcodeError: EDcode $ = "0" EndFunctionPrivateSubCommand1_Click () '"Yun Le Fly" to encrypt a $ = E Dcode ("Yun Le flying", 1) MsgBoxa '"Yun Le Fly" to decrypt a $ = EDcode (a, 1) MsgBoxaEndSub
Experts answer: provides a platform for knowledge exchange. If you can not afford , Please do not posts, as this will mislead the questioner. Love had asked very disappointing, noting that problems are not resolved, all posts are irrigation, if it continues like that, who come here to ask a question? I found here Some people, obviously they are incapable, but why not with an open mind to study it? Why What we seek here to irrigation, and we seek to show his power? Meet the program source code, If you still have questions, please give me letters, thank you. 'Principle: a random encryption of the string, if the function succeeds, return encrypted character, otherwise 0PublicFunctionE rSingleAsString*1OnLocalErrorGoToEDcodeErrorEDcode$= IfLen(CharString)=0ThenEDcode$= 1 ExitFunction nteger = Int (256 * MRND) And & H7FCharNum = CharNumXorRandomIntegerCharSingle = Chr $ (CharNum) EDcode EDcode $ $ = + A rSingleNextiExitFunctionEDcodeError: EDcode $ = "0" EndFunctionPrivateSubCommand1_Click () '"Yun Le Fly" to encrypt a $ = E Dcode ("Yun Le flying", 1) MsgBoxa '"Yun Le Fly" to decrypt a $ = EDcode (a, 1) MsgBoxaEndSub
- vb in the iif
- Ask association, the best example of a code
- vb.net check the screen changes the control value method
- Database. .
- expert c programming language
- c language program to solve
- In order to better our lives
- perl simple loop ask for advice
- Why is my diary can not see into the code
- Sql software testing will need to do it? Jiji Ji i!
- This information provided by the users.Thanks!
Computer Knowledge Copyright 2005-2015 All Rights Reserved.