C#

'UPGRADE_NOTE: Text was upgraded to Text_Renamed. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1061"'
	Private Function Crypt(ByVal Text_Renamed As String, ByVal Key As String) As String
		Dim KeyLen, i, KeyPtr As Integer
		Dim KeyChr, TextChr As Short
		KeyLen = Len(Key)
		For i = 1 To Len(Text_Renamed)
			TextChr = Asc(Mid(Text_Renamed, i, 1))
			KeyChr = Asc(Mid(Key, KeyPtr + 1, 1))
			Mid(Text_Renamed, i, 1) = Chr(TextChr Xor KeyChr)
			KeyPtr = ((KeyPtr + 1) Mod KeyLen)
		Next i
		Crypt = Text_Renamed
	End Function
	
	Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		txtText.Text = CStr(Now)
		txtPath.Text = VB6.GetPath & "\DateTest.bin"
	End Sub

Private Function Crypt(ByVal Text As String, ByVal Key As String) As String
    Dim i As Long, KeyLen As Long, KeyPtr As Long, KeyChr As Integer, TextChr As Integer
    KeyLen = Len(Key)
    For i = 1 To Len(Text)
        TextChr = Asc(Mid(Text, i, 1))
        KeyChr = Asc(Mid(Key, KeyPtr + 1, 1))
        Mid(Text, i, 1) = Chr(TextChr Xor KeyChr)
        KeyPtr = ((KeyPtr + 1) Mod KeyLen)
    Next i
    Crypt = Text
End Function

Private Sub Form_Load()
    txtText.Text = Now
    txtPath.Text = App.Path & "\DateTest.bin"
End Sub