About ROT13

[yxq]

Hello,
I want to encrypt and decrypt using ROT13, found a class to encrypt string,
but where is the decrypter?

http://authors.aspalliance.com/brett...sp#CodeSamples

Thank you

[yxq]

Oh, i known, if encrypt the string again, it will return the unencrypted
string.

Thank you

"yxq" <ga***@163.net> дÈëÏûÏ¢ÐÂÎÅ:ut****************@TK2MSFTNGP15.phx.g bl...

Hello,
I want to encrypt and decrypt using ROT13, found a class to encrypt
string, but where is the decrypter?

http://authors.aspalliance.com/brett...sp#CodeSamples

Thank you

[yxq]

In Registry, the
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count

Key encrypted by ROT13, what meaning about the REG_BINARY value? i guess it
is date/Time

Thank you

"yxq" <ga***@163.net> дÈëÏûÏ¢ÐÂÎÅ:%2****************@TK2MSFTNGP09.phx.g bl...

Oh, i known, if encrypt the string again, it will return the unencrypted
string.

Thank you

"yxq" <ga***@163.net> дÈëÏûÏ¢ÐÂÎÅ:ut****************@TK2MSFTNGP15.phx.g bl...

Hello,
I want to encrypt and decrypt using ROT13, found a class to encrypt
string, but where is the decrypter?

http://authors.aspalliance.com/brett...sp#CodeSamples

Thank you

[Mattias Sjögren]

Key encrypted by ROT13, what meaning about the REG_BINARY value? i guess it
is date/Time

It can hold any binary data, and is returned as a byte array to
managed code.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.

[Crouchie1998]

Here's a ROT13 Function that I have converted from one of my old VB6
projects, which you can use. It can be converted a little more, if you want,
but it doesn't need to:

Public Function Rot13(ByVal sInString As String) As String

Dim intPointer As Integer = 1
Dim strNewChar As String

While intPointer <> sInString.Length
System.Windows.Forms.Application.DoEvents()
Select Case Asc(Mid(sInString, intPointer, 1))
Case 65, 97
strNewChar = "N"
Case 66, 98
strNewChar = "O"
Case 67, 99
strNewChar = "P"
Case 68, 100
strNewChar = "Q"
Case 69, 101
strNewChar = "R"
Case 70, 102
strNewChar = "S"
Case 71, 103
strNewChar = "T"
Case 72, 104
strNewChar = "U"
Case 73, 105
strNewChar = "V"
Case 74, 106
strNewChar = "W"
Case 75, 107
strNewChar = "X"
Case 76, 108
strNewChar = "Y"
Case 77, 109
strNewChar = "Z"
Case 78, 110
strNewChar = "A"
Case 79, 111
strNewChar = "B"
Case 80, 112
strNewChar = "C"
Case 81, 113
strNewChar = "D"
Case 82, 114
strNewChar = "E"
Case 83, 115
strNewChar = "F"
Case 84, 116
strNewChar = "G"
Case 85, 117
strNewChar = "H"
Case 86, 118
strNewChar = "I"
Case 87, 119
strNewChar = "J"
Case 88, 120
strNewChar = "K"
Case 89, 121
strNewChar = "L"
Case 90, 122
strNewChar = "M"
Case Else
strNewChar = Mid(sInString, intPointer, 1)
End Select

If IsUpperCase(Mid(sInString, intPointer, 1)) Then
Mid(sInString, intPointer, 1) = strNewChar
Else
Mid(sInString, intPointer, 1) = strNewChar.ToLower
End If

intPointer += 1
End While

Return sInString

End Function

I hope this is of help to you

[yxq]

Thank you, but i have Rot13 function.
When you click the desktop icons, the date and time will be loged to
Registry in XP.

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\UserAssist\{75048700-EF1F-11D0-9888-006097DEACF9}\Count

The date and time wrote to binary value(16 bytes)
i.e. 09 00 00 00 07.... (i think the binary value encrypted).

But you can add a key to let XP will not encrypt the keyname and value
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\UserAssist\Settings

Add Dword value "NoEncrypt" and set to 1

I dont know how to recover the date and time from the binary value.

Please view
http://www.velasco.com.br/explorer_spy.txt

"Crouchie1998" <Cr**********@discussions.microsoft.com> дÈëÏûÏ¢ÐÂÎÅ:CC**********************************@ microsoft.com...

Here's a ROT13 Function that I have converted from one of my old VB6
projects, which you can use. It can be converted a little more, if you
want,
but it doesn't need to:

Public Function Rot13(ByVal sInString As String) As String

Dim intPointer As Integer = 1
Dim strNewChar As String

While intPointer <> sInString.Length
System.Windows.Forms.Application.DoEvents()
Select Case Asc(Mid(sInString, intPointer, 1))
Case 65, 97
strNewChar = "N"
Case 66, 98
strNewChar = "O"
Case 67, 99
strNewChar = "P"
Case 68, 100
strNewChar = "Q"
Case 69, 101
strNewChar = "R"
Case 70, 102
strNewChar = "S"
Case 71, 103
strNewChar = "T"
Case 72, 104
strNewChar = "U"
Case 73, 105
strNewChar = "V"
Case 74, 106
strNewChar = "W"
Case 75, 107
strNewChar = "X"
Case 76, 108
strNewChar = "Y"
Case 77, 109
strNewChar = "Z"
Case 78, 110
strNewChar = "A"
Case 79, 111
strNewChar = "B"
Case 80, 112
strNewChar = "C"
Case 81, 113
strNewChar = "D"
Case 82, 114
strNewChar = "E"
Case 83, 115
strNewChar = "F"
Case 84, 116
strNewChar = "G"
Case 85, 117
strNewChar = "H"
Case 86, 118
strNewChar = "I"
Case 87, 119
strNewChar = "J"
Case 88, 120
strNewChar = "K"
Case 89, 121
strNewChar = "L"
Case 90, 122
strNewChar = "M"
Case Else
strNewChar = Mid(sInString, intPointer, 1)
End Select

If IsUpperCase(Mid(sInString, intPointer, 1)) Then
Mid(sInString, intPointer, 1) = strNewChar
Else
Mid(sInString, intPointer, 1) = strNewChar.ToLower
End If

intPointer += 1
End While

Return sInString

End Function

I hope this is of help to you