Thorium

#r "System.Runtime.Serialization" // for interactive
// Reference to assembly System.Runtime.Serialization and System.Xml

open System.IO
open System.Runtime.Serialization.Json
open System.Xml
open System.Text

/// Object to Json 
let internal json<'t> (myObj:'t) =   

Thorium

open System.IO
open System.Security.Cryptography
open System.Text
open System.Diagnostics.Contracts

let DeCryptStringWith (crypted:string) (key:string) (iv:string) = 
    let enc = new ASCIIEncoding()
    let algo = Rijndael.Create()
    if(crypted.Length < 5) then 
        failwith "Crypted string length has to be over 5 chars."

Thorium

open System
open System.IO
open System.Xml
open System.Text
open System.Net
open System.Globalization

let makeUrl symbol (dfrom:DateTime) (dto:DateTime) = 
    //Uses the not-so-known chart-data:
    let monthfix (d:DateTime)= (d.Month-1).ToString()

Thorium

let REGISTRYSOFTWARE = "Software";
let REGISTRYMYPATH = "MySoftware";

let internal GetRegistryValue key =
    use path1 = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(REGISTRYSOFTWARE)
    match path1 with
    | null -> failwith("Access failed to registry: hklm\\"+REGISTRYSOFTWARE)
    | keyhklmsw -> 
        use path2 = keyhklmsw.OpenSubKey(REGISTRYMYPATH)
        match path2 with

Thorium

//See examples:

//Input: ["a";"b"]
//Output: ["a"; "b"; "ab"]

//Input: ["a";"b";"c";"d"] 
//Output: ["a"; "b"; "c"; "d"; "ab"; "ac"; "ad"; "bc"; "bd"; "cd"; "bcd"; "abc"; "abd"; "acd"; "abcd"]

//Input: [1;2;5]
//Output: [1; 2; 5; 3; 6; 7; 8]

Thorium

let myTimeStamp = 
    let zone = System.TimeZone.CurrentTimeZone.GetUtcOffset System.DateTime.Now
    let prefix = match (zone<System.TimeSpan.Zero) with | true -> "-" | _ -> "+"
    System.DateTime.UtcNow.ToString("yyyyMMddHHmmssffff") + prefix + zone.ToString("hhss");     

Thorium

let generateHash text = 
    let getbytes : (string->byte[]) = System.Text.Encoding.UTF8.GetBytes
    use algorithm = new System.Security.Cryptography.SHA512Managed()
    text |> (getbytes >> algorithm.ComputeHash >> System.Convert.ToBase64String)


//use example:
let id, time, secretkey = "1", System.DateTime.Now.ToString("yyyyMMddhhmmss"), "mysecret"
generateHash (secretkey + id + time)

Thorium

//View codebehind

using System.Windows.Controls;
namespace HelloApp
{
	public partial class MainPage : UserControl
	{
		public MainPage()
		{
			  // Required to initialize variables

Thorium

//#r "System.Runtime.Serialization"
//#r "FSharp.PowerPack"

open Microsoft.FSharp.Control.WebExtensions
open System
open System.Runtime.Serialization
open System.Runtime.Serialization.Json
open System.Net
open System.IO

Thorium

//#r "System.Xml.dll" //for scripts or interactive
//#r "System.Xml.Linq.dll"
open System
open System.Xml.Linq
open System.IO

let getFiles = Directory.GetFiles("c:\\projects\\", "*.csproj", SearchOption.AllDirectories)
               |> Array.toSeq
 
let getProjectInfo (fname:string) =