Stramic.com Build + SK's Server Stuff

[sk89q]

The server is dead.

[Drunkie]

Cool addons.

[sk89q]

Latest news is:

• New E2 functions: md5(), sha1(), sha256()
• Play the Stramic E2 puzzle! See puzzle1() =)

[dracotonisamond]

nooo....... you totaled all my efforts in writing the sha algorithm IN e2 xD.
any chance of a release?

[sk89q]

It just uses the cryptopp module. I don't know if pure-Lua implementations are up to the barrage of Wirers.

[dracotonisamond]

i am a cryptographic freak. i love thinking about new ways of securing things. i'll have to look into this cryptopp module.

[sk89q]

It only does hashes (and the three in question), so don't have your hopes up.

[dracotonisamond]

bleh. i just found that out. although. if my server host has westmere xeon cpu's i could write a dll that uses intels new hardware based AES-NI instructions.
but the downside is that only westmere and gulftown cpu's have these instructions. i just so happen to have a gulftown cpu so i may try this.

btw. your server sounds mighty interesting. i may drop by sometime in the future.

[sk89q]

Here's a list of E2 extension functions:
E2 Extensions (Knowledge Base)

[sk89q]

And here's code to generate a WAV file, save it to your Stramic webspace, and get a link to play the sound file with:

@name Sine Waveform WAV Generator [sk89q]
@persist SampleRate BitsPerSample NumChannels Duration
@persist Data:string SampleCount Amplitude Freq OutputFilename:string
@persist IntI
@outputs PercentDone

if (first() | dupefinished()) {
    SampleRate = 16000
    BitsPerSample = 16 # 8 or 16
    NumChannels = 1 # Don't change
    Duration = 0.7
    Amplitude = 1
    Freq = 1000 # Must be half of SampleRate or less
    OutputFilename = "test.wav"

    IntI = 0
    Data = ""
    SampleCount = 0
    runOnTick(1)
} elseif (tickClk()) {
    B = 2^BitsPerSample / 2
    T = Duration * SampleRate
    
    while (IntI < T) {
        if (minquota() < 200) { exit() }
        
        PercentDone = floor(IntI / T * 100)
        Num = Amplitude * B * sin(2 * 180 * IntI * Freq / SampleRate)
        Sample = pack(BitsPerSample == 16 ? "N" : "c", Num)
        Data += Sample
        SampleCount++
        IntI++
    }
    
    PercentDone = 100
    
    Subchunk2Size = SampleCount * NumChannels * BitsPerSample / 8
    Header = pack("NVNNVvvVVvvNV",
                  1380533830, # RIFF
                  Subchunk2Size + 36,
                  1463899717, # WAVE
                  1718449184, # fmt
                  16, # Subchunk1Size (16 for PCM)
                  1, # AudioFormat (1 for PCM),
                  NumChannels,
                  SampleRate,
                  SampleRate * NumChannels * BitsPerSample / 8,
                  NumChannels * BitsPerSample / 8,
                  BitsPerSample,
                  1684108385, # data,
                  Subchunk2Size)
    
    Out = Header + Data
    Size = Out:length()
    S = webspaceWrite(OutputFilename, Out)
    print((S ? "Written, size was " : "Failed to write, size was ") + Size)
    if (S) {
        print(webspaceURL() + OutputFilename)
    }
    
    runOnTick(0)
}