• Home
 · 
• Internet/HTML
 · 
• Roasting a password for AOL's Instant Messenger protocol wrapper, TOC.

Roasting a password for AOL's Instant Messenger protocol wrapper, TOC.

Roasting a password for AOL's Instant Messenger protocol wrapper, TOC.

Rate Roasting a password for AOL's Instant Messenger protocol wrapper, TOC.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Function Roast(TargetString As String, Optional RoastString As String) As String
    
    'Check if RoastString is set; "Tic/Toc" is default roast string
    If Len(RoastString) = 0 Then RoastString = "Tic/Toc"
    
    Dim Roasted As String
    Roasted = "0x" 'Mmm, roasted
    'Loop through length of TargetString
    Dim i As Long, RoastBuffer As String
    For i = 0 To (Len(TargetString) - 1)
        'Iterating through each character and xoring with a character of the RoastString
        'the character for RoastString is decided through getting the remainder of the
        'length of the RoastString and the current iteration
        RoastBuffer$ = Hex(Asc(Mid$(TargetString$, i& + 1, 1)) Xor Asc(Mid$(RoastString$, ((i& Mod Len(RoastString)) + 1), 1)))
        'Add trim of 0's if to fulfill hex width
        If CLng("&H" & RoastBuffer$) < 16 Then Roasted$ = Roasted$ & "0"
        'Concat current roast result with current iteration
        Roasted$ = Roasted$ & RoastBuffer$
    Next i
    
    Roast$ = LCase(Roasted$)
    
End Function