var/list/sha256_hash_cache=list()

world
    New()
        sha256_hash_cache_function("load")
        ..()

proc
    sha256(string)
        if(string in sha256_hash_cache)return sha256_hash_cache[string]
        .=world.Export("http://www.ssj4justdale.x10.mx/sha256.php?string=[string]")
        if(!.)return "Failed to hash [string] due to network connectivity."
        .=file2text(.["CONTENT"])
        if(!.)return "Failed to hash [string] due to lack of content."
        sha256_hash_cache[string]=.
        return .
    
    sha256_hash_cache_function(function)
        switch(function)
            if("save")
                if(fexists(".sha256")){fdel(".sha256")}
                var/savefile/F=new(".sha256")
                F << sha256_hash_cache
            if("load")
                if(fexists(".sha256"))
                    var/savefile/F=new(".sha256")
                    F >> sha256_hash_cache
            if("clear")
                if(fexists(".sha256")){fdel(".sha256")}
                sha256_hash_cache=list()


mob
    verb
        SHA256_Hash(var/hashed_string as text)
            if(!sha256_hash_cache.Find(hashed_string) && !findtext(hashed_string," "))
                spawn(-1)sha256_hash_cache_function("save")
            hashed_string=sha256(hashed_string)
            src<<hashed_string
        
        Clean_Cache()
            sha256_hash_cache_function("clear")

<?php

if(!isset($_GET['string']) || substr($_SERVER['REQUEST_URI'],0,19) != '/sha256.php?string=')
    die('Failed to retrieve string due to lack of content.');

$string =  substr($_SERVER['REQUEST_URI'],19);
$string=urldecode($string);

if(!isset($string))
{
    die("Failed to retrive string due to lack of content.");
} else {
    die(hash('sha256',$string));
}

?>