Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Tripcode decoder?

Name: Anonymous 2007-12-03 19:48

is there anyway to convert a tripcode into the password for that tripcode, im using tripsage and I see that you can put in a word you want to see in a trip code and it produces results of passwords that would produce a tripcode with those letters in it, so if we were to take a complete tripcode someone has and enter it into that field, in theory it should eventually produce the 1 password that produces that tripcode, however i have a core 2 duo e6600 which can run 170,000 crypts per second but with over 10^80 possible combinations(numbers + letters + capital letters + symbols, and 10 characters in a tripcode) it would take litteraly much more than trillions of years to run through every combination. Any other suggestions?

Name: Anonymous 2009-01-27 17:21

Oh hey, I'm happen to be writing a haskell textboard. Here's my crypt():

c_crypt.h:
char *c_crypt(const char *key,const char *salt);

c_crypt.c:

#define _XOPEN_SOURCE
#include <unistd.h>
#include "c_crypt.h"

char *c_crypt(const char *key,const char *salt){
    return crypt(key,salt);
}


Crypt.hs:

module Crypt.Crypt where

import Foreign.C
import Foreign.Ptr
import Foreign.C.String

foreign import ccall unsafe "c_crypt.h c_crypt" c_crypt :: CString -> CString -> CString


And tripcode function:

--strtr "haxmyanus" "an" "!?" => "h!xmy!?us"
--strtr "haxmyanus" "an" "?"  => "h?xmy??us"
strtr str []     _      = str
strtr str (x:xs) (y:ys) | ys == [] && xs /= [] = strtr' (strtr str xs [y]) x y
                        | otherwise            = strtr' (strtr str xs ys) x y
                      where strtr' [] s r     = []
                            strtr' (q:qs) s r | q == s    = r:strtr' qs s r
                                              | otherwise = q:strtr' qs s r

--strnottr "haxmyanus" "an" '!' => "!a!!!an!!"
strnottr []      _  _ = []
strnottr (s:str) xs y | all (/=s) xs = y:strnottr str xs y
                      | otherwise    = s:strnottr str xs y

--Create 2ch style tripcodes
trip t = do
    csalt <- newCString salt
    ctrip <- newCString t
    fin <- peekCString (c_crypt ctrip csalt)
    return $ (reverse.(take 10).reverse) fin
  where salt = strtr (strnottr (take 2 (drop 1 (t++"H."))) ['.'..'z'] '.') ":;<=>?@[\\]^_`" "ABCDEFGabcdef"

Newer Posts