123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

Displaying  Source Code(s)  
 

 
Encrypt Function

--------------------------------------------------------------------------------

Description : The Encrypt function encrypts a string. To decrypt an encrypted string, use the Decrypt Function. Encrypt replaces each letter in a string with a different character, including spaces, and then reverses the scrambled string. Encrypt provides good enough string encryption.

<%
Private Function Encrypt(ByVal String)
Dim x, i, tmp
For i = 1 To Len( String )
x = Mid( String, i, 1 )
tmp = tmp & Chr( Asc( x ) + 1 )
Next
tmp = StrReverse( tmp )
Encrypt = tmp
End Function
%>
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG