Hall of Fame

1. CodeCruiser1,796,837
2. jpaulino788,962
3. Idle_Mind778,416
4. TheLearn...414,325
5. Dhaest307,558
6. emoreau279,424
7. abel277,221
8. VBRocks277,167
9. webtubbs239,394
10. Fernando...194,509
11. kaufmed165,773
12. JackOfPH128,910
13. guru_sami117,814
14. Chaosian116,233
15. jaime_oliv...113,308
16. Africans110,800
17. shahprabal108,964
18. angelIII105,464
19. mlmcc97,645
20. oobayly96,584
21. PaulHews96,152
22. mwvisa189,386
23. Juan_Bar...88,460
24. jinal79,568
25. nmarun76,505

1. TheLearn...4,803,403
2. Idle_Mind4,615,460
3. Fernando...2,397,762
4. Sancler2,356,988
5. jpaulino2,349,769
6. CodeCruiser2,134,085
7. emoreau1,473,723
8. VBRocks1,370,339
9. RonaldBie...1,159,695
10. Dhaest1,058,504
11. webtubbs1,016,669
12. angelIII841,643
13. iboutchkine822,529
14. Chaosian814,067
15. PaulHews749,950
16. jaime_oliv...746,433
17. graye730,743
18. planocz707,043
19. gregoryyo...611,810
20. arif_eqbal596,164
21. vbturbo511,530
22. mlmcc503,210
23. ZeonFlash492,695
24. AlexFM473,611
25. BriCrowe435,867

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.8

Vb.net Encryption

Asked by jimseiwert in Microsoft Visual Basic.Net

We have code that encrypts passwords for us that an ex developer wrote. We need to decrypt passwords from our database. Can someone head me down the path of how to do this.

Thank you

Get your answer NOW

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

           
           
             Public Function encrypt_adage_pw(ByRef inp_str As String) As String
		Dim change_numer As Short
		'Dim inp_str As String
		Dim passwd As String
		Dim status As Short
		Dim seed As Short
		Dim encrypt_key As New VB6.FixedLengthString(62)
		Dim encrypt_len As Short
		Dim i As Short
		Dim inp_len As Short
		Dim acc_tot As Short
		Dim no_of_chars As Short
		Dim ord_inp_char As Short
		Dim op_char As String
		Dim ord_op_char As Short
		Dim decmal As Short
		Dim hex_str As String
		Dim change_number As Short
		'inp_str = Text1.Text
		
		change_number = 2
		encrypt_key.Value = "bDf&3Rt]xQ5!M\sqO/>kGNArm9:iX@(0+S""$ec[ZpHJy}zgVwoLvTK2<=4dFnEWhY1|aPU8)7^lB-jC{6.;`#u*_%,?~I"
		no_of_chars = Len(encrypt_key.Value)
		encrypt_len = 8
		
		If Len(inp_str) < 8 Then
			inp_str = New String(" ", 8 - Len(inp_str))
		End If
		
		inp_len = Len(inp_str)
		If inp_len = 0 Then
			Exit Function
		End If
		
		i = 1
		While i <= inp_len
			
			decmal = 0
			hex_str = (Right(Left(inp_str, i), 1))
			decmal = Asc(hex_str)
			seed = seed + decmal
			i = i + 1
		End While
		hex_str = " "
		decmal = 0
		
		acc_tot = seed
		passwd = ""
		i = 1
		While i <= encrypt_len
            ord_inp_char = i Mod inp_len
			If ord_inp_char = 0 Then
				ord_inp_char = inp_len
			End If
			decmal = 0
			hex_str = Right(Left(inp_str, ord_inp_char), 1)
			decmal = Asc(hex_str)
			acc_tot = acc_tot + decmal + i + ord_inp_char
			ord_op_char = (acc_tot Mod no_of_chars) + 1
			op_char = Right(Left(encrypt_key.Value, ord_op_char), 1)
			passwd = Trim(passwd) & op_char
			i = i + 1
		End While
		encrypt_adage_pw = passwd

           
         

	Title
1	how to encapsulate data field in TCP/I…
2	COM, DCOM, DLL???

Vb.net Encryption

Asked by jimseiwert in Microsoft Visual Basic.Net

About this solution